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INTRODUCTION 


In  the  near  future  the  United  States  may  face  shortages  of  scientists  and  engineers 
in  fields  such  as  physics,  electronic  engineering,  computer  science  and  aeronautical 
engineering.  High  school  students  are  currently  not  selecting  to  prepare  for  careers  in  these 
areas  in  numbers  large  enough  to  match  the  projected  needs  in  the  United  Sta<.es. 

The  Ail’  Force  faces  "a  formidable  challenge  -  the  acquisition  and  retention  of  the 
technological  competence  needed  to  ensure  a  strong  national  security,  both  in-house  and  in 
the  industrial  and  academic  base  which  supports  defense  preparedness."  The  Director  of  the 
Office  and  Science  of  Technology  Policy  in  the  Executive  Office  of  the  President  in  1979 
responded  to  this  need  by  requesting  the  federal  agencies  to  incorporate  in  their  contract 
research  programs  the  mechanisms  to  stimulate  career  interests  in  science  and  technology 
in  high  school  students  showing  promise  in  these  areas.  The  Air  Force  High  School 
Apprenticeship  Program  is  an  example  of  the  response  to  this. 

Under  the  Special  Studies  section  of  the  Summer  Faculty  Research  Program  an  Air 
Force  High  School  Apprenticesliip  was  initiated.  This  program’s  purpose  is  to  place 
outstanding  high  school  students  whose  interests  are  in  the  areas  of  engineering  and  science 
to  work  in  a  laboratory  environment.  The  students  who  were  selected  to  participate  worked 
in  one  of  the  Air  Force  l  aboratories  for  a  duration  of  8  weeks  during  their  summer  vacation. 

There  has  been  a  few  incidents  concerning  misuse  of  the  computers  in  the  laboratories. 
On  two  !<eparate  occasions  the  laboratory  has  had  to  revoke  computer  privileges  on  four  high 
school  students.  Both  of  these  incidents  happened  at  the  same  laboratory. 

Two  years  ago  two  students  wrote  a  program  to  shut  down  the  computer  system  at  the 
laboratory  and  to  steal  users  access  codes.  These  students  were  removed  from  the  laboratory 
and  one  or  the  students  was  dismissed  from  the  program,  while  the  other  student  finished 
his  apprenticeship  at  the  UES  facility. 

This  year  a  similar  incident  happened.  Two  other  students  were  involved  with 
basically  the  same  incident.  One  .student  wrote  a  program  that  would  send  repeating 
messages  to  the  various  comr.dter  terminals.  Includ**'’  in  this  program  was  a  prissword 
interception  program  were  the  users  would  type  in  therr  password  and  the  program  would 
retrieve  that  password.  The  other  student  involved  also  wrote  and  executed  a  passwo:d 
stealing  program,  and  was  involved  in  ihe  unauthorized  use  of  a  government  computer  in 
writing  a  fraudulent  letter.  The  student  also  obtained  unauthorized  access  to  a  computer 
modem. 

Ihe  Air  Force  High  School  Apprenticeship  Program  was  modeled  a.'ler  the  Army’s 
High  School  Program,  which  is  very  successful. 

The  follov'.ag  time  schedule  was  used  in  order  to  accomplish  this  effort. 
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TABLE  i 

AIR  FORCE  HIGH  SCHOOL 
APPRENTICESHIP  PROGRAM 


Calendar  of  Activities 


December 


0  Identify  schools  and  laboratories  for  participation 
o  Prepare  informational  material  for  schools  and  installations  a  mlication 
forms  for  students  and  mentors,  and  covering  letters, 
o  Disseminate  info  mation 
0  Recruit  apprentices,  mentors 


January 


o  Send  student  applications  to  teachers 


February  o  Applications  with  teacher  recommendations 

o  Receive  mentors’  project  descriptions  and  student  requirements 
0  Make  preliminaiy  selection  of  students  for  referral  to  mentor 


March 


o  Make  preliminary  matching  of  students  with  mentors;  send  letters  with 
several  student  applications  to  each  mentor 
o  Mentors  interview  students,  inform  UES  of  choice 


April 


May 


o  Send  letters  of  placement  to  students,  with  acceptance  forms  to  be  signed 
by  them  and  parents  and  returned  to  UES 
0  Place  2nd  year  apprentices 
0  Make  final  matches 

0  See  that  security  clearances  are  started,  where  applicable 
o  (Mentors  provide  background  reference  material  to  chosen  apprentices) 
o  Encourage  enrichment  activities:  arrange  for  films,  speakers,  tours,  etc. 

o  Send  letters  to  students  and  mentors  re-opening  session 
o  Send  students  Apprentice  Handbook 


June 


o  Arrange  general  orientation  for  students  and  mentors 


July,  August  0  Administer  and  monitor  apprenticeships 
0  Check  on  enrichment  activities 
o  Distribute  evaluation  forms  to  students  and  mentors 


September 


o  .Analyse  evaluations 
o  Prepare  final  report  to  Air  Force 
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RECRUITING  /uVD  SELECTIOxN^ 


Application  packages  and  the  flyer  were  distributed  to  the  laboratories  and  to  the 
various  high  schools  \vithin  convenient  driving  distance  of  the  laboratories  (typically  less  than 
20  milts). 

There  was  a  total  of  516  applications  received  by  UES  on  the  program.  '  /nen  the 
applications  were  received,  a  copy  was  sent  to  the  appropriate  laboratory  for  review.  The 
laboratory  mentor  screened  the  applications  and  conducted  personnel  interviews  with  the 
high  school  students  then  sent  UES  a  prioritized  list  of  their  applicants.  There  were  a  total 
of  132  participants  on  the  program,  selected  from  the  516  applications. 

The  laboratories  participating  in  the  program  along  with  the  number  of  students 


assigned  to  the  laboratory  is  listed  below: 

Aero  Propulsion  Laboratory  7 

Armament  Laboratory  16 

Armstrong  Aerospace  Medical  Research  Laboratory  7 

Arnold  Engineering  and  development  Center  5 

Avionics  Laboratory’  6 

Astronautics  Laboratory  12 

Engineering  and  Services  Center  15 

Electronic  Technology  Laboratory  5 

B'iight  Dynamics  Laboratory  9 

Geophysics  Laboratory  7 

Materials  Laboratory  1 

Occupational  and  Environmental  Health  Laboratory  3 

Rome  Air  Development  Centr»’  15 

School  of  Aerospace  Medicine  13 

Weapor  o  Laboratory  10 
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Participant  Laboratory  Assignment 
1990  High  School  Apprenticeship  Program 


Aero  Propulsion  Laboratory 
Wright-Patterson  Air  Force  Base,  Ohio 


1.  Matthew  Bold 

4. 

Chris  Hatch 

2.  Hee  Sun  Choung 

5. 

Chet  Nieter 

3.  Katharine  Day 

6. 

Jennifer  Pollock 

7. 

Carol  Rogers 

Armament  Laboratory 

Eghn  Air  Force  Base,  Florida 

1.  Steven  Bryan 

9. 

Derek  Holland 

2.  Toyna  Cook 

10. 

Christine  Riendeau 

3.  Heather  Cox 

11. 

Lisa  Schmidt 

4.  Kathryn  Deibler 

12. 

Patricia  Tu 

5.  Chris  Ellis 

13. 

Troy  Urquhart 

6.  Dana  Farver 

14. 

Gregory  VanWiggeren 

7.  Kenneth  Gage 

15. 

Danielle  Walker 

8.  Reid  Harrison 

16. 

Eric  White 

Armstrong  Aerospace  Medical  Research  Laboratory 

Wright-Patterson  Air  Force  Base,  Ohio 

1.  Rex  Ballinger 

4. 

Keisha  Hayes 

2.  Douglas  Brungart 

5. 

Douglas  Marshak 

3.  Caroline  Chuang 

6. 

Jeremiah  Rogers 

7. 

James  Shamiyeh 

Arnold  Engineer  Jug  and  Development  Center 

Arnold  Air  Force  Base,  Tennessee 

1.  Timothy  Craddock 

4. 

Jonathan  Sanders 

2.  Myra  Medley 

5. 

Jason  Scott 

3.  JiJie  Reece 

6. 

Gerald  Turner 

Astronautics  Laboratory 

Edwards  Air  Force  Base,  California 

1.  Alisha  Conrow 

7. 

Thomas  Quinn 

2.  Debra  Meyer 

8. 

Tracy  Reed 

3.  John  Moro 

9. 

Benjamin  Sommers 

4.  Lloyd  Neurauter 

10. 

Stephanie  VanMeter 

5.  Joseph  Padilla 

11. 

Rebecca  Weston 

6.  Melanie  Pyle 

12. 

David  Youmans 
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Avionics  Laboratory 
Wright-Pat.terson  Air  Force  Base,  Ohio 


1.  Brian  Barclay 

4. 

David  Collins 

2.  Mark  Boeke 

5. 

Austin  Flack 

3.  Michael  Chabinyc 

6. 

Jerard  Wilson 

Engineering  and  Services  Center 

Tyndall  Air  Force  Base,  Florida 

1.  Jennifer  Brewer 

8. 

Debra  Piechowiak 

2.  Philip  Dorsch 

9. 

Jonathan  Protz 

3.  David  Eshleman 

10. 

Julie  Scruggs 

4.  Richard  Hartzer 

11. 

Michael  Stone 

5.  Thor  Johnson 

12. 

Amy  Thomas 

6.  Tracy  Lamb 

13. 

Michael  Thompson 

7.  Brent  Miller 

14. 

Jeffrey  Ward 

15. 

Robin  Woodworth 

Electronic  Technology  Laboratory 

Wright-Patterson  Air  Force  Base,  Ohio 

1.  Matthew  Brewer 

3. 

Shelly  Knupp 

2.  Matt  Elwood 

4. 

Christopher  O’Dell 

5. 

Suzette  Yu 

Flight  Dynamics  Laboratory 

Wright-Patterson  Air  Force  Base,  Ohio 

1.  Jean  Ay 

5. 

Rachael  Lyon 

2.  Matthew  Becker 

6. 

Cathie  Moore 

3.  Wendy  Choate 

7. 

Roderick  Morgan 

4.  Andrea  Dean 

8. 

Stanley  Wall 

9. 

Douglas  Wickert 

Geophysics  Laboratory 

Hanscom  Air  Force  Base,  Massachusetts 

1.  Stephen  Britten 

4. 

Jason  Klingensmith 

2.  Weihaw  Chuang 

5. 

Galen  McKinley 

3.  Christopher  Guild 

6. 

Jeffrey  Sayasane 

7. 

Paul  Swietek 

Materials  Laboratory 
Wright-Patterson  Air  Force  Base,  Ohio 

1.  Jennifer  Walker 
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Occupational  and  Environment  Health  Laboratory 
Brooks  Air  Force  Base,  Texas 

1.  Gary  New 

2.  Andrea  Perez 

3.  Michael  Smid 

Rome  Air  Development  Center 
Griffiss  Air  Force  Base,  New  York 


1. 

Daniel  Abbis 

8. 

Ka;hryn  Lee 

2. 

Mark  Anania 

9. 

Jason  Lenio 

3. 

Bridget  Bordiuk 

10. 

Kevin  Olson 

4. 

Todd  Gleason 

il. 

David  Petrillo 

5. 

Christopher  Hailes 

12. 

Thomas  Potter 

6. 

Edward  Holmes 

13. 

Daniel  Russell 

7. 

Kimberly  King 

14. 

Philip  Schremmer 

15. 

Eric  Shaw 

School  of  Aerospace  Medicine 

Brooks  Air  Force  Base,  Texas 

1. 

Anthony  Barnes 

7. 

Brian  McBumett 

2. 

WTiitney  Brandt 

8. 

Heather  Neville 

3. 

Deann  Cooper 

9. 

Lori  Olenick 

4. 

Matthew  Felder 

10. 

Joanna  Saucedo 

5. 

Christopher  iiudson 

11. 

Wendy  Shields 

6. 

Sonya  Ix)ngbotham 

12. 

Brent  Strawn 

13. 

John  Taboada 

Weapons  Laboratory 

Kirtland  Air  Force  Base,  New  Mexico 

1. 

David  Cochrell 

6. 

Ryan  McAlhaney 

2. 

Gregory  Hays 

7. 

Margaret  Morecock 

3. 

David  Knapp 

8. 

Philip  Ortiz 

4. 

Aaron  Laing 

9. 

Brian  Rizzoli 

5. 

Kerim  Martinez 

10. 

Chris  Stoltenberg 

I 
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INFORMATION  PACKAGE 


23  March  1990 


Dear : 

Enclosed  are  the  mentor  applications  forms  for  the  1990  USAP  High  School  Apprenticeship 
Program.  The  mentors  and  project  descriptions  have  been  approved  by  UES. 

Enclosed  are  the  applications  for  the  High  School  Apprenticeship  program  for  the  summer 
of  1990.  The  following  mentors  and  previous  high  school  participants  have  been  matched  and 
selected  to  work  with  each  other  for  the  coming  summer. 

Student  Mentor 

1. 

2. 

3. 

The  following  is  a  previous  high  school  participant  in  the  program  and  is  selected  to 
participate  in  the  program  for  this  summer.  He  needs  to  1^  matched  with  one  of  the 
approved  mentors  for  this  summer. 

Student 

1. 

The  remainder  of  the  students  need  to  be  evaluated  by  the  approved  mentors  for  possible 
selection  in  the  program  for  this  summer.  Please  provide  to  UES  a  listing  of  the  mentor 
recommendations  for  students  by  15  April  1990. 

We  have  a  total  of  100  positions  available  on  the  program  for  this  summer.  We  will  select 
as  many  as  possible  to  fill  this  available  positions.  We  anticipate  that  about  15  high  school 
students  will  be  selected  to  participate  with  the  mentors  at  the  Rome  Air  Development 
Center. 

If  you  have  any  questions  concerning  this  information,  please  do  not  hesitate  to  contact  us. 
Sincerely, 

UNIVERSAL  ENERGY  SYSTEMS,  INC. 


Rodney  C.  Darrah 
Program  Director 

Enclosure 


xc:  Lt.  Col.  Claude  Cavender 


MODEL  PLACEMENT  LETTER  TO  STUDENT 


13  March  1991 


1~ 

2~ 

3~ 

Dear  4~: 

Congratulations!  You  have  been  selected  to  participate  in  the  Air  Force  Office  of  Scientific 
Research  High  School  Apprenticeship  Program  as  an  apprentice  to  5~  at  the  6~  to  work  on 
Project:  "7-"  from  June  18  to  August  10, 1990.  Enclosed  is  an  acceptance  form  for  you  and 
your  parent  or  guardian  to  sign.  Also  enclosed  is  your  W-4  form  which  needs  to  be  filled  out 
and  returned  along  with  your  acceptance  form  to  me  by  May  11,  1990. 

The  Apprenticeship  Program  provides  an  exciting  opportunity  for  you,  and  we  hope  you  will 
take  advantage  of  the  work  experience  to  learn  more  about  scientific  research,  career 
opportunities  in  science  and  engineering,  and  the  education  necessary  to  prepare  yourself  for 
such  careers.  On  June  18, 1990,  the  first  day  of  the  program,  you  are  expected  to  attend  an 
orientation  session  with  other  apprentices  and  mentors  and  to  ask  questions  about  any 
concerns  you  might  have.  Many  of  those  concerns  are  discussed  in  the  Apprentice  Handbook 
which  is  enclosed.  The  Handbook  also  contains  suggestions  for  getting  the  most  out  of  the 
summer  experience,  and  references  to  other  work  experience  programs  and  financial 
assistance  available  for  college  education.  Please  read  the  Handbook  before  the  orientation 
session,  so  that  time  will  not  be  used  for  questions  answered  in  the  book. 

You  will  be  expected  to  begin  work  promptly  at  8:00  a.m.  on  June  18.  If  for  any  reason  you 
cannot  begin  work  on  that  day,  or  cannot  report  to  work  on  any  future  work  day,  you  m’.st 
inform  your  mentor  at  8~. 

We  hope  you  will  enjoy  your  apprenticeship.  I  will  be  available  throughout  the  summer 
should  problems  arise  that  cannot  be  solved  by  your  mentor. 

Sincerely, 

UNIVERSAL  ENERGY  SYSTEMS,  INC. 


Rodney  C.  Darrah 
Program  Director 

RCD/mt 
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STUDENT  ACCEPTANCE  FORM 
for  participation  in 

Air  Force  Office  of  Scientific  Research 
High  School  Apprenticeship  Program,  1990 


I,  1~,  accept  the  position  of  apprentice  in  the  Air  Force  Office  of  Scientific  Research  High 
School  Apprenticeship  Program  from  June  18,  1990  to  August  10,  1990  to  work  with  2~  at 
the  S'-  on  Project:  "4~".  I  understand  that  I  will  receive  a  stipend  of  $5~  for  the  summer 
apprenticeship  for  which  I  must  participate  during  the  entire  session. 


Date 


Signature  of  student 


High  School 


PARENT  CONSENT 


As  the  parent/guardian,  I  certify  that  my  son/daughter/ward  has  my  permission  to  participate 
in  this  project  for  secondary  school  students.  It  is  my  understanding  that  he/she  will  be 
subject  to  the  regulations  of  the  host  institution  and  the  project.  I  understand  that  should 
a  health  emergency  arise  I  will  be  notified,  but  that  if  I  cannot  be  reached  by  telephone,  such 
medical  treatment  as  deemed  necessary  by  competent  medical  personnel  is  authorized. 


Date 


Signature  of  parent 


Daytime  phone 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 


1.  How  did  you  hear  about  program? 

0  Previous  mentor  o  Verbal  request  from  personnel 

0  Notice  on  bulletin  board  office 

0  Memo  from  personnel  office  o  Other,  specify _ 

2.  Did  you  volunteer  to  be  a  mentor? 

Yes _  No 

3.  Did  the  student  application  provide  sufficient  information? 

Yes _  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the 

student  application  form? _ 


5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

Yes No 

6.  If  no,  would  an  interview  have  been  useful? 

Yes _  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

A  lot Some Not  at  all _ 

8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

A  lot Some Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

Excellent  Fair  Poor 
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10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

Yes„  No_  If  No,  Why? _ 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

Yes No_  If  No,  Why? _ 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  Yes  No  _ Don’t  know 

Explain _ _ 

b.  career  choice?  Yes  _ ^No  _ ^Don’t  know 

Explain _ _ 

If  you  have  suggestions  or  comments  on  the  progra  ji,  please  use  the  space  below. 

PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 

to:  Susan  Espy _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ 

4401  Dayton-Xenia  Road  Date 

Dayton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIOiWAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

AF.RO  PROPULSION  LABORATORY 

1.  How  did  you  hear  about  program? 

6  Previous  mentor 

0  Notice  on  bulletin  board 
0  Memo  from  personnel  office 
0  Verbal  request  from  personnel  office 
1  Other,  specify: _ 

Assistant  Chief  Scientists. 

2.  Did  you  volunteer  to  be  a  mentor? 

7  Yes 
0  No 

3.  Did  the  student  application  provide  £  afficient  information? 

7  Yes 
0  No 

0  Don’t  Know 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

Specific  information  regarding  computer  experience. 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

4  Yes 
3  No 

6.  If  no,  would  an  interview  have  been  useful? 

6  Yes 
1  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/fier  understanding  of  the  nature  of  scientific  research? 

6  A  lot 
1  Some 
0  Not  at  all 
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7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboravory  contributed  to 
his/her  understanding  of  the  natiire  of  scientific  research? 

6  A  lot 

1  Some 

0  Not  at  all 

S.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

2  A  lot 
5  Some 

0  Not  at  all 

9.  How  would  you  rate  the  student’s  performsuice? 

4  Excellent 

3  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

7  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

7  Yes 
0  No 

If  No,  Why? 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  0  -  Yes  1  -  No  6  -  Don’t  Know 

Explain: 

She  was  already  planning  on  an  Engineering  degree  at  U.  of  K. 


b.  career  choice?  0  -  Yes  1  -  No  6  -  Don’t  know 
Explain: 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


PLEASE  RETURN  BY  14  September  1990 

Name  of  student  apprentice 

to:  Susan  Esov _ _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems 

4401  Dayton-Xenia  Road  Date 

Dayton,  OH  45432 _ 

Address 


14 


1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAiM: 

MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

ARMAMENT  LABORATORY 

1.  How  did  you  hear  about  program? 

11  Previous  mentor 

0  Notice  on  bulletin  board 
3  Memo  from  personnel  office 

0  Verbal  request  from  pereonnel  office 

2  Other,  specify: _ 

Section  Chief 

I  have  been  a  mentor  foi'  3  years. 

2.  Did  you  volunteer  to  be  a  mentor? 

16  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

12  Yes 
1  No 

3  N/A 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

I  did  not  see  the  application,  or  pay  .much  attention  to  it.  I  just  acc'^oted  the 
student  assigned  to  me. 

5.  Did  you  inter/iew  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

10  Yes 
6  No 

6.  If  no,  would  an  interview  have  been  useful? 

5  Yes 
0  No 
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7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

15  A  lot 
1  Some 
0  Not  at  all 

8.  How  much  did  the  student  contribute  tr*  the  research  of  yoiu*  laboratory? 

10  A  lot 
6  Some 
0  Not  at  all 

9.  How  would  y'u  rate  the  student’s  performance? 

i5  Excellent 

1  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

14  Yes 

2  No 

If  No,  Why? 

I  will  be  away. 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

10  Yes 
6  No 

If  No,  Why? 

All  the  no  responses  indicate  the  students  will  be  attending  college  and  not  eligible 
for  the  program. 


12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  5  -  Yes  2  -  No  9  -  Don’t  know 

Explain: 

Most  of  the  comments  indicate  that  the  courses  are  already  set.  But  toward  the 
math  and  science  courses. 
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b.  career  choice?  7  -  Yes  1  -  No  8  -  Don’t  know 
Explain: 

The  comnients  consist  that  students  are  still  deciding,  two  of  the  students 
definitely  want  in  the  science  careers. 


If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 

to:  Susan  Esov _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems 

4401  Da3rton-Xenia  Road  Date  ^ 

Dayton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

ARMSTRONG  AEROSPACE  MEDICAL  RESEARCH  LABORATORY 

1.  How  did  you  hear  about  program? 

7  Previous  mentor 
0  Notice  on  bulletin  board 
0  Memo  from  personnel  office 
0  Verbal  request  from  personnel  office 
0  Other,  specify: _ 

2.  Did  you  volunteer  to  be  a  mentor? 

7  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

6  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

1  didn’t  see  the  application  form. 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

2  Yes 
5  No 

6.  If  no,  would  an  interNdew  have  been  useful? 

2  Yes 

2  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
hisffier  understanding  of  the  nature  of  scientific  research? 

3  A  lot 

4  Some 

0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 


2  A  lot 

5  Some 

0  Not  at  all 

9.  How  would  you  rate  the  student's  performance? 

6  Excellent 
1  Fair 

0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

4  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

6  Yes 
1  No 

If  No,  Why? 

She  graduated. 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  2  -  Yes  1  -  No  4  -  Don’t  know 

Explain: 

Gained  additional  knowledge  &  training  in  lab  that  allowed  testing  out  of  some 
pre-requisite  courses. 

b.  career  choice?  2  -  Yes  2  -  No  3  -  Don’t  know 
Explain: 

Comments  include  that  the  student  has  new  insight  to  engineering,  and  another 
St  dent  wants  to  go  into  medicine 
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If  you  have  sufe^estions  or  comments  or  the  program,  please  use  the  space  below. 


PLEASE  RETURN  BY  14  September  1990 

Name  of  student  apprentice 


to:  Susan  Espy _  _ _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ _ 

4401  Dayton-Xenia  Road  Date 

Dayton,  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
xMENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

ARNOLD  ENGINEERING  AND  DEVELOPMENT  CENTER 

1.  How  did  you  hear  about  program? 

1  Previoxis  mentor 

0  Notice  on  bulletin  board 

2  Memo  from  personnel  office 

2  Verbal  request  from  personnel  office 
1  Other,  specify: _ 

Supervisor. 

2.  Did  you  volunteer  to  be  a  mentor? 

5  Yes 

1  No 

3.  Did  the  student  application  provide  sufficient  information? 

6  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  ihe  student 
application  form? 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

4  Yes 

2  No 

6.  If  no,  would  an  interview  have  been  useful? 

1  Yes 

1  No 

0  Maybe 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratoiy  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

4  A  lot 

2  Some 

0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

4  A  lot 
2  Some 
0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

6  Excellent 
0  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

6  Yes 
0  Maybe 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

6  Yes 
0  No 

If  No,  Why? 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  1  -  Yes  3  -  No  2  -  Don’t  know 

Explain: 

The  no  responses  indicate  that  courses  are  pre-determined  and  not  many  options. 

b.  career  choice?  4  -  Yes  0  -  No  2  -  Don’t  know 
Explain: 

Heightened  interest  in  chemistry/chemical  engineering. 

Solidified  his  intent  to  pursue  an  engineering  career. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 

I  would  suggest  that  students  requiring  a  security  clearance  he  given  advanced  notice 
so  that  the  necessary  processing  could  be  completed  prior  to  their  coming  to  work.  A  ten 
week  program  (instead  of  8)  should  be  offered  as  an  option  for  the  students. 

This  program  was  a  very  positive  experience  for  me  as  well  as  her.  I  would  enjoy 
participating  in  the  program  again. 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ 

4401  Da)don-Xenia  Road  Date 

Dayton,  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

ASTRONAUTICS  LABORATORY 

1.  How  did  you  hear  about  program? 

5  Previous  mentor 
0  Notice  on  bulletin  board 
1  Memo  from  personnel  office 

1  Verbal  request  from  personnel  office 

2  Other,  specify: _ 

Request  from  XRX. 

2.  Did  you  volunteer  to  be  a  mentor? 

9  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

8  Yes 
1  No 

4.,  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

At  a  high  school  level  there  isn’t  a  lot  of  detailed  scientific  technical  questions  you 
can  ask  for., 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

4  Yes 

5  No 

6.  If  no,  would  an  interview  have  been  useful? 

4  Yes 

1  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

7  A  lot 

2  Some 

0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

6  A  lot 
3  Some 
0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

9  Excellent 
0  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

9  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

9  Yes 
0  No 

If  No,  Why? 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  2  -  Yes  4  -  No  3  -  Don’t  know 

Explain: 

Most  of  the  responses  indicate  that  student’s  courses  are  already  set  for  the 
upcoming  year., 

b.  career  choice?  1  -  Yes  3  -  No  5  -  Don’t  know 
Explain: 

Two  of  the  comments  were  that  the  student’s  have  their  career’s  planned,  even  as 
far  as  job  opportunities.  One  student  wants  to  go  in  the  medical  profession. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


Let  the  students  accrue  leave  (annual  &  sick)  and  let  them  work  more  than  40  days! 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ _ 

4401  Dayton-Xenia  Road  Date 

Dayton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

AVIONICS  LABORATORY 

1.  How  did  you  hear  about  program? 

3  Previous  mentor 

1  Notice  on  bulletin  board 
1  Memo  from  personnel  office 

1  Verbal  request  from  personnel  office 

0  Other,  specify: _ 

2.  Did  you  volunteer  to  be  a  mentor? 

6  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

4  Yes 

2  No 

4.  If  no,  V  hat  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

Previous  police  record  and  descriptions  of  any  court  imposed  fines  or  punishment. 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

0  Yes 
6  No 

6.  If  no,  would  an  interview  have  been  useful? 

2  Yes 
4  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

2  A  lot 
4  Some 
0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

4  A  lot 
2  Some 

0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

5  Excellent 
0  Fair 

1  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  siunmer? 

5  Yes 
1  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

5  Yes 
1  No 

If  No,  Why? 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  1  -  Yes  3  -  No  2  -  Don’t  know 

Explain; 

I  think  his  courses  were  pretty  well  planned  out  before  he  came  to  the  lab.  What 
he  learned  here  probably  reinforced  his  choices  rather  than  changing  them. 

b.  career  choice?  2  -  Yes  2  -  No  2  -  Don’t  know 
Explain: 

All  of  the  responses  indicate  the  students’  have  chosen  a  career;  from  chemical 
engineer  to  computer  science. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ 

4401  Dayton-Xenia  Road  Date 

Davton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

ENGINEERING  AND  SERVICES  CENTER 

1.  How  did  you  hear  about  program? 

9  Previous  mentor 
1  Notice  on  bulletin  board 
0  Memo  from  personnel  office 

1  Verbal  request  from  personnel  office 
4  Other,  specify: _ 

The  comments  for  the  Other  category  were  notifications  from  AFESC  staff. 

2.  Did  you  volunteer  to  be  a  mentor? 

14  Yes 
1  No 

3.  Did  the  student  application  provide  sufficient  information? 

14  Yes 

I  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

Never  saw  a  student  application  from. 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

4  Yes 

II  No 

6.  If  no,  would  an  interview  have  been  useful? 

8  Yes 

4  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

9  A  lot 

5  Some 

1  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 


9  A  lot 
5  Some 
1  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

14  Excellent 

1  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

13  Yes 

2  No 

If  No,  Why? 

The  "no"  comments  were  because  of  the  time  that  it  takes,  and  the  other  mentor 
will  be  traveling. 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

15  Yes 
0  No 

If  No,  Why? 

If  I  were  to  do  it  again. 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  5  -  Yes  4  -  No  6  -  Don’t  know 

Explain: 

The  majority  of  the  comments  as  before  where  that  the  courses  are  already 
determined. 


b.  career  choice?  4  -  Yes  3  -  No  8  -  Don’t  know 
Explain: 

The  comments  range  from  students  that  have  not  decided,  to  a  student  choosing 
to  be  an  engineer  and  Air  Force  pilot. 


If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ _ 

4401  Da)don-Xenia  Road  Date 

Dayton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

ELECTRONIC  TECHNOLOGY  LABORATORY 

1.  How  did  you  hear  about  program? 

0  Previous  mentor 
0  Notice  on  bviUetin  board 
1  Memo  from  personnel  office 
0  Verbal  request  from  personnel  office 
4  Other,  specify; _ 

Through  Lab  Operation  Division  (EL.A). 

Verbal  request  from  boss. 

Co-worker. 

2.  Did  you  volunteer  to  be  a  mentor? 

4  Yes 

1  No 

3.  Did  the  student  application  provide  sufficient  information? 

5  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

5.  Did  you  interview  the  student  who  was  placed  in  your  labore*  jry  before  the  program 
started? 

3  Yes 

2  No 

6.  If  no,  would  an  interview  have  been  useful? 

1  Yes 
1  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his^er  understanding  of  the  nature  of  scientific  research? 

5  A  lot 
0  Some 
0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 


3  A  lot 
2  Some 

0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

4  Excellent 
1  Fair 

0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

5  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

4  Yes 
1  No 

If  No,  Why? 

Student  has  limited  interest  in  research. 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  0  -  Yes  1  -  No  4  -  Don’t  know 

Explain: 

Responses  indicate  that  courses  are  pre-determined. 

b.  career  choice?  0  -  Yes  0  •  No  5  -  Don’t  know 
Explain: 

I  think  she  has  gained  an  appreciation  for  the  challenging  nature  of  research. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


PLEASE  RETURN  BY  14  September  '  ^  _ 

Name  of  student  apprentice 


to:  Susan  Espy _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems _ _ 

4401  Dayton-Xenia  Road  Date 

Dayton.  OH  45432 _ 

Address 


1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

FLIGHT  DYNAMICS  LABORATORY 

1.  How  did  you  hear  about  program? 

4  Previous  mentor 

0  Notice  on  bulletin  board 
0  Memo  from  personnel  office 

1  Verbal  request  from  personnel  office 

3  Other,  specify: _ 

Branch  office. 

WRDC/FIOP 

2.  Did  you  volunteer  to  be  a  mentor? 

8  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

8  Yjs 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

3  Yes 

5  No 

6.  If  no,  would  an  interview  have  been  u  ^ful? 

4  Yes 
1  No 

7.  In  yoim  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

5  A  lot 
3  Some 

0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

5  A  lot 
3  Some 

0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

7  Excellent 
1  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

7  Yes 

1  No 

If  No,  Why? 

Only  if  a  project  is  available  for  use  by  student! 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

6  Yes 

2  No 

If  No,  Why? 

Comments  indicate  student’s  are  not  eligible. 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  1  -  Yes  2  •  No  5  -  Don’t  know 

Explain: 

Student  had  already  chosen  Engineering  Cixrriculum  for  College. 

b.  career  choice?  3  -  Yes  1  -  No  4  -  Don’t  know 
Explain: 

Student  already  targets  Aerospace  future. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 

Work  must  be  available  that  a  student  can  get  involved  in  for  the  dm-ation  of  there  stay. 
If  it  is  not,  I  will  not  take  any  more  students. 


PLEASE  RETURN  BY  14  September  1990  _ _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ _ _ 

4401  Dayton-Xenia  Road  Date 

Davton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

GEOPHYSICS  LABORATORY 

1.  How  did  you  hear  about  program? 

2  Previous  mentor 

0  Notice  on  bulletin  board 

3  Memo  from  personnel  office 

0  Verbal  request  from  personnel  office 
0  Other,  specify: _ 

2.  Did  you  volunteer  to  be  a  mentor? 

5  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

5  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

1  Yes 

4  No 

6.  If  no,  would  an  interview  have  been  useful? 

3  Yes 

1  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

3  A  lot 

2  Some 

0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 


3  A  lot 
2  Some 
0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

5  Excellent 
0  Fair 
0  Poor 

10.  Would  like  to  participate  as  a  mentor  for  the  program  next  summer? 

5  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

5  Yes 
0  No 

If  No,  Why? 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  0  -  Yes  0  -  No  5  -  Don’t  know 

Explain: 

Courses  probably  selected  prior  to  the  summer  job. 

b. ,  career  choice?  0  -  Yes  1  -  No  4  -  Don’t  know 

Explain: 

Was  already  planning  to  enter  MIT  in  an  engineering  field. 
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If  you  have  suggestions  or  comments  on  the  progi*am,  please  use  the  space  below. 

The  main  comment  is  that  they  would  like  to  see  the  program  expanded  to  10  to  12 
weeks,  also  that  the  stipend  should  be  raised  to  compete  with  jobs  outside  of  research. 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems _ 

4401  Dayton-Xenia  Road  Date 

Dayton,  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

MATERIALS  LABORATORY 

1.  How  did  you  hear  about  program? 

0  Previous  mentor 
0  Notice  on  bulletin  board 
0  Memo  from  personnel  office 
1  Verbal  request  from  personnel  office 
0  Other,  specify: _ 

2.  Did  you  volunteer  to  be  a  mentor? 

1  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

1  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

5.,  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

0  Yes 
1  No 

6.  If  no,  would  an  interview  have  been  useful? 

1  V'es 
0  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

1  A  lot 
0  Some 
0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 


1  A  lot 
0  Some 
0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

1  Excellent 
0  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

1  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

1  Yes 
0  No 

If  No,  Why? 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  0  -  Yes  0  -  No  1  -  Don’t  know 

Explain: 

Student  is  pursuing  a  career  in  Civil  Engineering. 

b.  career  choice?  0  -  Yes  1  -  No  0  •  Don’t  know 
Explain: 


43 


If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  belovi^. 

She  was  really  a  pleasure  to  work  with.  She  was  self  motivated  and  a  diligent  worker 
who  was  genuinely  interested  in  everythhig  going  on  within  the  lab.  She  did  a 
outstanding  job.  Would  like  to  see  her  back  next  year! 


PLEASE  RETURN  BY  14  September  1990 

Name  of  student  apprentice 


to:  S  isan  Espy _ _ 

Coordinator  Name  of  mentor/laboratory 

Uriversal  Energy  Systems 

4401  Dayton-Xenia  Road  Date  ^  ’ 

Dayton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

OCCUPATIONAL  AND  ENVIRONMENT  HEALTH  LABORATORY 

1.  How  did  you  hear  about  program? 

0  Previous  mentor 
0  Notice  on  bulletin  board 
1  Memo  from  personnel  office 
0  Verbal  request  from  personnel  office 
1  Other,  specify: _ 

My  supervisor. 

2.  Did  you  volunteer  to  be  a  mentor? 

1  Yes 

1  No 

3.  Did  the  student  application  provide  sufficient  information? 

2  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

0  Yes 
2  No 

6.  If  no,  would  an  interview  have  been  useful? 

2  Yes 
0  No 

7.  In  your  opinion,  how  much  has  the  student's  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

0  A  lot 
2  Some 
0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

2  A  lot 
0  Some 
0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

2  Excellent 
0  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

2  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

2  Yes 
0  No 

If  No,  Why? 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  0  -  Yes  0  •  No  2  •  Don’t  know 

Explain: 

Student  was  already  interested  in  science  courses. 


b.  career  choice?  0  -  Yes  0  -  No  2  -  Don’t  know 
Explain: 

Student  is  already  set  to  take  engineering  in  college. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  th<  space  below. 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 

to:  Susp-n  Espy _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ _ 

4401  Dayton-Xenia  Road  Date 

Dayton,  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

ROME  AIR  DEVELOPMENT  CENTER 

1.  How  did  you  hear  about  program? 

4  Previous  mentor 

0  Notice  on  bulletin  board 

3  Memo  from  personnel  office 

2  Verbal  request  from  personnel  office 
2  Other,  specify: _ 

Director  of  Photonics  Labs. 

Branch  Chief  sent  me  a  memo. 

2.  Did  you  volunteer  to  be  a  mentor? 

10  Yes 
1  No 

3.  Did  the  student  application  provide  sufficient  information? 

10  Yes 
1  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

0  Yes 

11  No 

6.  If  no,  would  an  interview  have  been  useful? 

6  Yes 

5  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

4  A  lot 

7  Some 

0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 


3  A  lot 
8  Some 
0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

10  Excellent 
1  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

8  Yes 
3  No 

If  No,  Why? 

The  "no"  responses  indicated  that  they  did  not  have  the  time  to  devote  to  the 
students. 

11.  Would  }'ou  want  the  same  student  in  your  laboratory  next  summer? 

8  Yes 
3  No 

If  No,  Why? 

Give  someone  else  the  opportunity  to  work  here. 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  2  -  Yes  2  -  No  7  -  Don’t  know 

Explain: 

Courses  pre-determined  but  students  were  influenced  for  courses  at  the  advanced 
levels. 

b.  career  choice?  3  -  Yes  2  -  No  5  •  Don’t  know 
Explain: 

The  majority  of  the  comments  were  that  the  career  choices  were  reinforced. 


If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


Great  Program!  Thanks! 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ _ _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ _ 

4401  Dayton-Xenia  Road  Date 

Dayton,  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

SCHOOL  OF  AEROSPACE  MEDICINE 

1.  How  did  you  hear  about  program? 

7  Previous  mentor 

1  Notice  on  bulletin  board 
0  Memo  from  personnel  office 
1  Verbal  request  from  personnel  office 
4  Other,  specify: _ 

Laboratory  Chief  Scientist 

Letter  from  SAM/CA. 

2.  Did  you  volunteer  to  be  a  mentor? 

13  Yes 
0  No 

3.  Did  the  student  application  provide  sufficient  information? 

13  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

4  Yes 

8  No 

6.  If  no,  would  an  interview  have  been  useful? 

4  Yes 
4  No 

7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

12  A  lot 
1  Some 
0  Not  at  all 
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8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

9  A  lot 
4  Some 
0  Not  at  all 

9.  How  would  you  rate  the  student’s  performance? 

11  Excellent 
2  Fair 

0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

12  Yes 
0  No 

If  No,  Why? 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

11  Yes 
2  No 

If  No,  Why? 

The  student  stated  she  did  not  have  the  patience  for  research  work.  Therefore,  I 
would  prefer  giving  another  student  an  opportunity  to  participate  in  next  year’s 
program. 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  coiu^es  in  coming  school  year?  1  -  Yes  3  -  No  9  -  Don’t  know 

Explain: 

The  responses  indicated  that  courses  are  pre-determined,  although  one  comment 
indicated  that  it  influenced  the  student  s  college  courses. 

b.  career  choice?  5  -  Yes  0  -  No  8  -  Don’t  know 
Explain: 

Indicated  a  change  from  nursing  to  biological  research. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


This  is  an  excellent  program.  It  helps  students  realize  what  "research"  means,  and  gives 
them  some  independence  in  the  laboratory  setting. 


PLEASE  RETURN  BY  14  September  1990 


Name  of  student  apprentice 


to:  Susan  Espy _ 

Coordinator 


Name  of  mentor/laboratory 


Universal  Energy  Systems 
4401  Dayton-Xenia  Road 
Davton.  OH  45432 
Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
MENTOR  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  MENTOR) 

WEAPONS  LABORATORY 

1.  How  did  you  hear  about  program? 

1  Previous  mentor 
0  Notice  on  bulletin  board 
4  Memo  from  personnel  office 

1  Verbal  request  from  personnel  office 

2  Other,  specify: _ 

Supervisor. 

Program  Coordinator  on  site. 

2.  Did  you  volunteer  to  be  a  mentor? 

8  Yes 
0  No 

3.  Did  the  student  application  provide  sufScient  information? 

8  Yes 
0  No 

4.  If  no,  what  additional  information  would  you  want  to  see  included  on  the  student 
application  form? 

One  mentor  commented  that  questions  should  be  asked  concerning  technical 
capabilities. 

I  chose  a  student  I  was  familiar  with,  I  never  saw  the  application' . 

5.  Did  you  interview  the  student  who  was  placed  in  your  laboratory  before  the  program 
started? 

1  Yes 
7  No 

6.  If  no,  would  an  interview  have  been  useful? 

3  Yes 
3  No 
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7.  In  your  opinion,  how  much  has  the  student’s  work  in  your  laboratory  contributed  to 
his/her  understanding  of  the  nature  of  scientific  research? 

8  A  lot 
0  Some 
0  Not  at  all 

8.  How  much  did  the  student  contribute  to  the  research  of  your  laboratory? 

6  A  lot 
2  Some 

0  Not  at  all 

9.,  How  would  you  rate  the  student’s  performance? 

8  Excellent 
0  Fair 
0  Poor 

10.  Would  like  to  participant  as  a  mentor  for  the  program  next  summer? 

7  Yes 
1  No 

If  No,  Why? 

Just  every  few  years. 

11.  Would  you  want  the  same  student  in  your  laboratory  next  summer? 

7  Yes 
1  No 

If  No,  Why? 

Student  starting  college. 

12.  Did  the  work  of  the  student  influence  his/her  choice  of 

a.  courses  in  coming  school  year?  3  -  Yes  1  -  No  4  -  Don’t  know 

Explain: 

Most  comments  were  that  the  courses  have  already  been  set.  One  commented  that 
the  student  changed  from  nuclear  engineering  to  electrical  engineering. 

b.  career  choice?  4  -  Yes  1  -  No  3  -  Don’t  know 
Explain: 

Comments  were  that  the  work  was  parallel  to  career  choices. 
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If  you  have  suggestions  or  comments  on  the  program,  please  use  the  space  below. 


PLEASE  RETURN  BY  14  September  1990  _ 

Name  of  student  apprentice 


to:  Susan  Espy _  _ 

Coordinator  Name  of  mentor/laboratory 

Universal  Energy  Systems  _ _ 

4401  Dayton-Xenia  Road  Date 

Dayton.  OH  45432 _ 

Address 
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1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
APPRENTICE  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  HIGH  SCHOOL  STUDENT) 


(A  =  A  LOT 
B  =  SOME  I. 

C  =  A  LITTLE 
D  =  NOT  AT  ALL) 

A  B  CD  1. 

A  B  CD  2. 

A  B  CD  3. 

A  B  CD  4. 

A  B  CD  5. 

A  B  CD  6. 

A  B  C  D  1.. 

A  B  CD  8. 

A  B  CD  9. 

A  B  CD  10. 

A  B  CD  11. 

A  B  CD  12. 

A  B  CD  13. 

A  B  CD  14. 

A  B  CD  15. 

A  B  CD  16. 


How  much  were  you  exposed  to  each  of  the 
following  during  vour  summer  apprenticeship? 

(Circle  one  letter  per  line.) 

Philosophy  of  research 

Use  of  scientific  method  to  solve  problems 

Use  of  experimental  checks  and  controls 

Measurement  techniques 

Design  of  equipment 

Calibration  of  reagents,  standards,  and  instruments 

Process  of  design  of  an  experiment 

Data  analysis  (with  or  without  computer  assistance) 

Computer  programming 

Acquisition  and  use  of  scientific  literature  (books,  audio  visual) 

Identification  of  new  questions  as  a  consequence  of  scientific 
exploration 

Teamwork  in  scientific  research 
Use  of  advanced  scientific  equipment 
Other  students  with  similar  interests  and  goals 
Scientists  working  in  different  areas  of  research 
Information  on  scientific  careers 
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II. 


A  B  C  D 

A  B  C  D 

A  B  C  D 

A  B  C  D 

A  B  C  D 

A  B  C  D 

A  B  C  D 

A  B  C  D 

A  B  C  D 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 
9. 


How  much  has  your  experience  as  an  apprentice  contributed  to 
your  development  in  each  of  the  following?  (Circle  one  letter  per 
line) 

Working  with  adults 

Responsibility  on  a  job 

Understanding  of  scientific  principles 

Scientific  vocabulary 

Ability  to  write  a  technical  report 

Understanding  of  your  interests  and  abilities 

Educational  goal  setting 

Insights  into  career  opportunities  in  science 

Career  goal  setting 


(A  =  A  LOT 
B  =  SOME 
C  =  A  LITTLE 
D  =  NOT  AT  ALL 
E  =  NOT  AVAILABLE/ 
NOT  RELEVANT) 


III. 

A  B  C  D  E  1. 

ABODE  2. 
A  B  C  D  E  3. 

A  B  C  D  E  4. 

A  B  C  D  E  5. 

A  B  C  D  E  6. 

A  B  C  D  E  7. 

(A  =  STRONGLY  AGREE 


To  what  extent  did  you  benefit  from  the  following? 
Planned  lectures  or  seminars 
Explanations  of  work  by  mentor 
Tours  of  other  laboratories  or  installations 
Informal  talks  with  mentor 
Discussions  with  other  scientists 
Interactions  with  other  apprentices 
Advice  from  the  program  coordinator 
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B  =  AGREE 

C  =  DISAGREE 

D  =  STRONGLY  DISAGREE) 


IV. 

How  do  vou  feel  about  vour  research  annrentice  experience? 

A 

B 

C 

D 

1. 

I  enjoyed  the  experience 

A 

B 

C 

D 

2. 

I  liked  the  scientific  research 

A 

B 

C 

D 

3. 

I  was  satisfied  with  the  way  I  spent  my  time 

A 

B 

C 

D 

4. 

I  learned  a  lot 

A 

B 

C 

D 

5. 

I  feel  I  contributed  to  the  research  results 

V.  Would  you  want  to  return  to  the  same  mentor  next  year? 
0  Yes  0  No:  If  No,  why? 


0  personality  conflicts 

0  lack  of  interest 

0  want  a  different  experience 

0  want  a  different  location 

VI.  What  did  you  like  most  about  the  program? 


VII.  What  did  you  like  least  about  the  program? 
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date 


Susan  Espy _ 

Name  of  Coordinator 

Universal  Energy  Systems 
4401  Dayton-Xenia  Rd. 
Dayton.  OH  45432 
Address 


1990  USAF/UES  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 
APPRENTICE  EVALUATION  QUESTIONNAIRE 
(TO  BE  COMPLETED  BY  A  HIGH  SCHOOL  STUDENT) 


(A  = 
B  = 
C  = 

A  LOT 

SOME 

A  LITTLE 

I. 

How  much  were  you  exposed  to  each  of  the 
followiner  during  your  summer  anorenticeshio? 

D  = 

:  NOT  AT  ALL) 

(Circle  one  letter  ner  line.) 

A 

B 

C 

D 

46 

27 

26 

6 

1, 

Philosophy  of  research 

36 

35 

26 

8 

2. 

Use  of  scientific  method  to  solve  problems 

45 

23 

26 

11 

3. 

Use  of  experimental  checks  and  controls 

42 

26 

18 

19 

4. 

Measurement  techniques 

38 

30 

24 

13 

5. 

Design  of  equipment 

30 

20 

20 

35 

6. 

Calibration  of  reagents,  standards,  and  instruments 

39 

31 

19 

44 

7., 

Process  of  design  of  an  experiment 

80 

17 

6 

2 

8. 

Data  analysis  (with  or  without  computer  assistance) 

65 

17 

11 

13 

9. 

Computer  programming 

47 

28 

22 

8 

10. 

Acquisition  and  use  of  scientific  literature  (books,  audio  visual) 

34 

44 

18 

9 

11. 

Identification  of  new  questions  as  a  consequence  of  scientific 
exploration 

62 

30 

9 

4 

12. 

Teamwork  in  scientific  research 

61 

26 

11 

7 

13. 

Use  of  advanced  scientific  equipment 

34 

29 

26 

16 

14. 

Other  students  with  similar  interests  and  goals 

51 

29 

17 

7 

15 

Scientists  working  in  different  areas  of  research 

48 

33 

20 

4 

16. 

Information  on  scientific  careers 

60 


IL  How  much  has  vour  experience  as  an  apprentice  contributed  to 
vour  development  in  each  of  the  following?  (Circle  one  letter  per 

liS!^ 


A 

B 

c 

D 

77 

21 

7 

0 

1. 

Working  with  adults 

68 

27 

10 

0 

2. 

Responsibility  on  a  job 

46 

34 

22 

3 

3. 

Understanding  of  scientific  principles 

57 

27 

16 

5 

4. 

Scientific  vocabulary 

33 

46 

19 

7 

5., 

Ability  to  write  a  technical  report 

65 

30 

10 

0 

6. 

Understanding  of  your  interests  and  abilities 

55 

33 

14 

3 

7. 

Educational  goal  setting 

60 

29 

13 

3 

8. 

Insights  into  career  opportunities  in  science 

51 

33 

19 

2 

9. 

Career  goal  setting 

(A 

=  ALOT 

B  =  SOME 
C  =  A  LITTLE 
D  =  NOT  AT  ALL 
E  =  NOT  AVAILABLE/ 
NOT  RELEVANT) 


A 

B 

C 

D 

E 

15 

19 

21 

2 

48 

73 

22 

5 

4 

1 

27 

28 

22 

5 

23 

73 

19 

7 

5 

1 

59 

27 

14 

2 

3 

36 

19 

22 

10 

18 

16 

22 

25 

18 

24 

III.  To  what  extent  did  you  benefit  from  the  following? 

1.  Planned  lectures  or  seminars 

2.  Explanations  of  work  by  mentor 

3.  Tours  of  other  laboratories  or  installations 

4.  Informal  talks  with  mentor 

5.  Discussions  with  other  scientists 

6.  Interactions  with  other  apprentices 

7.  Advice  from  the  program  coordinator 


61 


(A  =  STRONGLY  AGREE 
B  =  AGREE 
C  =  DISAGREE 
D  =  STRONGLY  DISAGREE) 


A 

B 

C 

D 

IV., 

How  do  vou  feel  about  vour  research  annrentice  experience? 

79 

22 

4 

0 

1. 

I  enjoyed  the  experience 

59 

37 

3 

6 

2. 

I  liked  the  scientific  research 

51 

41 

10 

3 

3. 

I  was  satisfied  with  the  way  I  spent  my  time 

73 

25 

6 

1 

4. 

I  learned  a  lot 

55 

37 

5 

7 

5. 

I  feel  I  contributed  to  the  research  results 

V. 

Would 

vou  want  to  return  to  the  same  mentor  next  year? 

72  Yes  31  No:  If  No,  why? 


1  personality  conflicts 

5  lack  of  interest 

23  want  a  different  experience 

10  want  a  different  location 


VL  What  did  you  like  most  about  the  program? 

35  of  the  students  thought  that  the  mentor  and  the  various  people  in  the  laboratory 
was  what  they  liked  the  most  about  the  program.  They  commented  that  they  were 
treated  as  adults  and  not  as  high  school  students,  that  what  they  thought  or 
accomplished  was  important.  29  of  the  students  liked  the  exposure  to  a  work 
atmosphere.  The  students  were  very  thankful  to  have  the  opportunity  to  work  beside 
scientist  and  engineers  doing  real  research.  Another  comment  was  that  the  equipment, 
laboratories,  and  computers  are  what  19  of  the  students  liked  the  most.  Eleven  of  the 
students  liked  the  project  that  they  were  assigned  to,  and  the  learning  experience  that 
they  had.  A  few  students  expressed  that  before  they  received  the  position  that  they 
had  not  decided  on  a  career,  but  8  students  have  now  due  to  the  program.  Five  of  the 
students  liked  the  different  employment  opportunities  that  are  available,  while  2  of  the 
students  liked  learning  more  about  the  Air  Force  and  the  opportunities  that  they  have 
available. 
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VII.  What  did  you  like  least  about  the  program? 


The  majority  of  what  the  students  liked  least  was  that  the  program  was  not  long 
enough.  The  12  responses  indicated  that  the  program  should  be  lengthened  to  10  to 
12  weeks.  Eleven  of  the  students  commented  at  they  were  not  keep  busy.  The  mentors 
did  not  either  have  the  time  to  spend  with  them,  or  the  students  finished  the  projects 
thai  the  mentors  had  assigned.  Six  of  the  students  disliked  writing  a  final  report  at 
the  end  of  the  summer.  While  another  six  students  thought  the  pay  should  be  higher 
considering  the  type  of  work  they  were  doing.  Five  of  the  students  commented  that 
they  did  not  do  the  project  that  was  originally  discussed  once  they  got  there.  Another 
five  students  least  liked  the  timecards  and  there  schedule,  also  the  delay  in  getting 
their  paychecks.  Four  students  responded  that  their  mentors  were  TDY  and  was  not 
available  for  most  of  the  summer.  Four  other  students  commented  that  they  did  not 
get  along  with  the  people  in  labs,  that  they  were  treated  like  "gofers"  and  doing 
errands,  and  office  work.  Another  4  students  disliked  the  project  they  were  doing,  some 
of  the  comments  were  that  they  did  not  think  it  was  re^  research  but  "busy  work". 
Other  comments  consisted  of  no  sick  or  holiday  pay,  lack  of  information  about  UES,  no 
positions  available  for  college  students,  getting  up  early,  lack  of  air  conditioning,  and 
even  that  the  water  tasted  funny. 
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LIST  OF  PARTICIPANTS  FINAL  REPORTS 
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RESEARCH  REPORTS 


1990  HIGH  SCHOOL  APPRENTICESHIP  PROGRAM 


Technical 

Report 

Number 

Title 

Particinant 

VOLUME  I 

Aero  Propulsion  Laboratory 

1 

Flash  Plate  Evaporator 

Matthew  Bold 

2 

Frozen  Start  Up 

Hee  Sun  Choung 

3 

Nonaqueous  Battery  Research 

Katharine  Day 

4 

Setup  Tecplot 

Chris  Hatch 

5 

Flash  Plate  Evaporator 

Chet  Nieter 

6 

Final  Report  to  UES 

Jennifer  Pollock 

7 

Frozen  Start  Up 

Carol  Rogers 

Armament  Laboratory 

8 

Wind  Velocimeters  for  Calculating  Ballistic 
Trajectories 

Steven  Bryan 

9 

Star  Availability  for  Sensor  -  Specific 

Evaluation  (S.A.S.S.E.) 

Tonya  Cook 

10 

Development  of  a  Customized  Database  System 
for  the  Distribution  of  EPIC  Hydrocode  Software 

Heather  Cox 

11 

Synthesis  and  Characterization  of 
3-Picrylamino-l,2,4-TriazoJe 

Kathryn  Deibler 

12 

Neural  Target  Identification 

Chris  Ellis 

13 

Space  Debris  Analysis 

Dana  Farver 

14 

Enhancement  and  Integration  of  Post  Process 
Utilities  for  the  EPIC  Hydrocodes 

Kenneth  Gage 

15 

Design  of  In-House  Radar  Control  and  Data 
Acquisition  Systems 

Reid  Harrison 

16 

1990  HSAP  Final  Event  Summary 

Derek  Holland 

65 


17 

MSIS:  Multi-Sensor  Integration  System 

Christine  Riendeau 

18 

Enhancement  of  RTD  710A  Interface 

Lisa  Schmidt 

19 

Current  Simulations  in  Electromagnetic 

Launcher  Power  Supplies 

Patricia  Tu 

20 

Advanced  Signal  Processing  Operations  for 

Guided  Interceptors 

Troy  Urquhart 

21 

Ballistics  Applications  in  Aerospace  Research 

Greg  VanWiggeren 

22 

Optical  Processing:  Digital  Imagery 

Acquisition  and  Analysis 

Danielle  Walker 

23 

Fractal  Landscape 

Eric  White 

VOLUME  II 

Armstrong  Aerospace  Medical  Research  Laboratory 

24 

Summer  Apprenticeship  Final  Report 

Rex  Ballinger 

25 

3-D  Audio  Displays 

Douglas  Brungart 

26 

Integrated  Protection  by  Pressurized 

Containment  in  Flight  Environments 

Caroline  Chuang 

27 

Cockpit  Accommodation 

Keisha  Hayes 

28 

Electron  Microscopy  Techniques 

Douglas  Marshak 

29 

AAMRL/AFOSR  Summer  Research  Apprenticeship 
Report 

Jeremiah  Rogers 

30 

Camouflage,  Concealment,  and  Deception 

James  Shamiyeh 

Arnold  Engineering  and  Development  Center 

31 

Converting  Saturn  Data  Base  into  Paradox  3.0 

Timothy  Craddock 

32 

X-ray  Computer  Tomography  and  IR  Analysis 
Models  for  Propulsion  Systems 

Myra  Medley 

33 

Demulsification  of  Oil  and  Water  Using  Salts 
and  Commercial  Surfactants  for  the  Purpose 
Purpose  of  Reclaiming  Waste  Oil 

Julie  Reece 

34 

Propulsion  Wind  Tunnel  Standard  Tunnel 
Conditions  Equations  Documentation 

Jonathan  Sanders 

66 


35 

Program  Pinal  Report 

Jason  Scott 

36 

Real-Time  Radiography  Ray  Tracing 

Gerald  Turner 

Astronautics  Laboratory 

37 

The  Summer  in  Review 

Alisha  Conrow 

38 

Synthesis  of  Two  Cage  Compounds 

Debra  Meyer 

39 

Fundamental  Rocket  Exhaust  Measurements 

John  Moro 

40 

Analytic  Predictions  of  Hydroxy-terminated 
Polybutadiene  (HTPB)  Modulus  using  Random 
Iterative  Discrete  Node  Algorithm  (RIDNA) 

Lloyd  Neurauter 

41 

Liquid  Engine  Computer  Codes 

Joseph  Padilla 

42 

Determination  of  Active  Surface  Area  and 

Density  of  Carbons 

Melanie  Pyle 

43 

No  Report  Submitted 

Thomas  Quinn 

44 

High  School  Apprenticeship  Program  Final 

Report 

Tracy  Reed 

45 

1990  Final  Report 

Benjamin  Sommers 

46 

No  Report  Submitted 

Stephanie  VanMeter 

47 

A  Comparison  of  Electric  Propulsion  Orbit 

Transfer  Methods 

Rebecca  Weston 

48 

No  Report  Submitted 

David  Youmans 

Avionics  Laboratory 

49 

Ada  Compiler  Evaluation  Capability  Testing 

UtiUty  (ACEC) 

Brian  Barclay 

50 

Pattern  Based  Machine  Learning 

Meirk  Boeke 

51 

Pattern  Based  Machine  Learning:  A  Comparison 
of  ADA  Function  Decomposer  Versions 

Michael  Chabinyc 

52 

Computer  Simulation  of  SDI 

David  Collins 

53 

Final  Report  Summer  1990 

Austin  Flack 

54 

No  Report  Submitted 

Jerard  Wilson 

67 


Engineering  and  Services  Cencer 


55 

Surface  Catalyzed  Reactions  of  Vapor  Phase 
Hydrazine 

Jennifer  Brewer 

56 

Sims.,  Billeting 

Philip  Dorsch 

57 

Alternate  Pavement  Materials 

David  Eshleman 

58 

Apprenticeship  Final  Report 

Richard  Hartzer 

59 

A  Neural  Network  Edge  Enhancer 

Thor  Johnson 

60 

Summer  Research 

Tracy  Lamb 

61 

Final  Report 

Brent  Miller 

62 

Effects  of  Compaction  on  Unsaturated  Sand 

Debra  Piechowiak 

63 

Design  and  Testing  of  an  In-house  Electronic 
Publishing  System  for  National  Laboratories 

Jonathan  Protz 

64 

Summer  Apprenticeship  at  HQ  AFESC/DEC 

Julie  Scruggs 

65 

No  Report  Submitted 

Michael  Stone 

66 

The  Effects  of  High  Pressure  Tires 

Amy  Thomas 

67 

The  Effects  of  High  Strain  Rates  on  Sand 

Michael  Thompson 

68 

Centrifuge  Modeling  of  Explosive  Induced 

Stress  Waves  in  Unsaturated  S.^nd 

Jeffrey  Ward 

69 

CD-ROM  Compact  Disc  Read  Only  Memory 

Robin  Woodworth 

VOLUME  III 

Electronic  Technology  Laboratory 

70 

Final  Report 

Matthew  Brewer 

71 

The  Making  of  a  Transistor 

Matt  Elwood 

72 

Imagepro  User  Guide 

Shelly  Knupp 

73 

Computer-Aided  Design  (CAD)  Area 

Christopher  O’Dell 

74 

Electron  Beam  Lithography 

Suzette  Yu 

68 


Flight  Dynamics  Laboratory 


75 

High  School  Apprenticeship  Program  Final  Report 

Jean  Ay 

76 

Project  "Environmental  Reliability": 

The  Analysis  of  Printed  Circuit  boards 

Matthew  Becker 

77 

High  Speed  Performance  Computer  Resources  Team 

Wendy  Choate 

78 

No  Report  Submitted 

Andrea  Dean 

79 

Leading  Edge  Heat  Exchanger 

Rachael  Lyon 

80 

Final  Report  for  Cathie  Moore 

Cathie  Moore 

81 

Project  Instrumentation 

Roderick  Morgan 

82 

ENTRAN  Manual 

Stanley  Wall 

83 

Final  Report 

Douglas  Wickert 

Geophysics  Laboratory 

84 

Determining  Tropical  Storm  Direction  of 

Movement  Using  SSM/I  Brightness  Temperature 
Data 

Stephen  Britten 

85 

Auroral  Boundaries 

Weihaw  Chuang 

86 

Mesoscale  Modeling 

Christopher  Guild 

87 

No  Report  Submitted 

Jason  Klingensmith 

88 

Solar  Terrestrial  Interactions 

Galen  McKinley 

89 

Ionospheric  Effects 

Jeffrey  Sayasane 

90 

Final  Report 

Paul  Swietek 

Materials  Laboratory 

91 

Fatigue  of  Composites 

Jennifer  Walker 

Occupational  and  Environmental  Health  Laboratory 

92 

Automated  Heat  Stress  Measurements 

Gary  New 

93 

Compilation  of  Hazardous  Waste  Surveys 

Andrea  Dean  (Perez) 

94 

Automation  of  Water  Analysis 

Michael  Smid 

69 


Rome  Air  Development  Center 


95 

Pre-Commissioning  and  Capabilities  of  the 
Workhorse  Scatterometer:  A  Final  Report 

Da  A  Abbis 

96 

No  Report  Submitted 

Mark  Anania 

97 

Radar  Range  Equation  and  Radar  Design  and 
Simulation 

Bridget  Bordiuk 

98 

No  Report  Submitted 

Todd  Gleason 

99 

Cartographic  Applications 

Christopher  Hailes 

100 

Application  Software  Development  for  use 
on  Directory  Specific  Network 

Edward  Holmes 

101 

Various  Projects  in  Data  Analysis  of 

Surveillance  Systems 

Kimberly  King 

102 

Network  Processing  Element  Test  and  Evaluation 

Kathryn  Lee 

103 

Gemacs  Version  5.0  Modifications  and 

Applications 

Jason  Lenio 

104 

Activities  at  RADC  Photonics  Lab 

Kevin  Olson 

105 

Overview  of  Neural  Networks 

David  Petrillo 

106 

Surface  Analysis 

Thomas  Potter 

107 

Software  Inventory  Control  System  Database 

Daniel  Russell 

108 

Artificial  Neural  Networks 

Philip  Schremmer 

109 

Local  Area  Networks 

Eric  Shaw 

VOLUME  IV 

School  of  Aerospace  Medicine 

no 

No  Report  Submitted 

Anthony  Barnes 

111 

Final  Report 

Whitney  Brandt 

112 

Preliminary  Testing  of  an  Inert  Gas 

Concentrator  Using  Carbon  Molecvilar  Sieve 

Deann  Cooper 

113 

Affects  of  Anti-G  Straining  Maneuvers  on 

Blood  Pressures  in  Man;  Affects  of  -»  Gz  on 
the  Cardiovascular  System  of  Baboons 

Matthew  Felder 

70 


114 

115 

116 

117 

118 

119 

120 
121 

122 

Weapons 

123 

124 

125 

126 

127 

128 

129 

130 

131 


Apolipoprotein  Comparison  Study  and  CAD 
Prediction  Study 

High  School  Apprenticeship  Program  Final 
Report 

Deteraination  of  Optimum  Growth  and  Strain 
Facilities  for  Diazotyrosine  Production 

Serum  Factor  -  Induced  Expression  of  the 
C-FOS  Gene  in  NIH  3T3  Cells 

Biological  Rhythms  Research 

Report  on  File  with  UES  &  SAM 

Medical  Entomology  Activities 

Establishing  High  and  Low  Rate  Operant 
Behavior  in  Rats 

UES  Report 

Laboratory 

Phase  Conjugation  and  Beam  Coupling 
Final  Report 
A  Study  in  C 

Final  Report  of  Summer  Mentor 


Statistical  Analysis  of  Cone  Penetrometer 
Data 

No  Report  Submitted 

Microwave  Susceptibility  Testing  of  Micro- 
Circuitry 

Construction  of  a  Delay  Circuit  for  Data 
Acquisition  Coordination 


Christopher  Hudson 

Soyna  Longbotham 

Brian  McBumett 

Heather  Neville 

Lori  Olenick 
Joanna  Saucedo 
Wendy  Shields 
Brent  Strawn 

John  Taboada 

David  Cochrell 
Paul  Hillman 
David  Knapp 
Aaron  Laing 
Kerim  Martinez 

Ryan  McAlhaney 
Margaret  Morccock 

Philip  Ortiz 


132 


Contour  Plots 

Wide  Bandwidth  Crosslink  Register  Technical 
Report 


Brian  Rizzoli 
Chris  Stoltenberg 
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APPRENTICESHIP  PROGRAM 

WRIGHT  PATTERSON  AIR  FORCE  BASE 

WRIGHT  RESEARCH  &  DEVELOPMENT  CENTER 


MATT  BOLD 

cowritten  with  Chet  Nieter 
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PROJECT;  FLASH  PLATE  EVAPORATOR 


The  heat  pipe  was  designed  in  the  1940' s  to  advance  the 
science  of  heat  transfer.  The  heat  pipe  has  three  primary 
sections:  the  evaporator,  the  adiabatic  section,  and  the  condenser 
section.  A  working  fluid  in  the  evaporator  is  vaporized  by 
incoming  thermal  energy.  The  vapor  pressure  increases  and  the 
vapor  is  forced  through  the  adiabatic  section  to  the  condenser 
where  the  vapor  is  condensed  and  thermal  energy  is  released.  The 
condensed  fluid  is  di-awn  back  to  the  evaporator  section  through  a 
porous  wick  structure.  This  is  made  possible  by  a  drop  in 
capillary  pressure  in  t.he  evaporator  section  of  the  pipe.  In 
essence,  the  thermal  energy  was  transferred  from  the  evaporator 
section  of  the  pipe  zo  the  condenser. 

Normally  the  heat  pipe  is  in  the  form  of  a  long  cylindrical 
pipe  used  to  transfer  heat  over  long  distances.  A  new  type  of  pipe 
was  needed  to  enhance  the  ability  to  collect  and  remove  heat  over 
large  surfaces,  or  to  increase  the  radiation  area. 

The  flash  plate  evaporator  is  the  third  unit  in  a  three  unit 
system  designed  to  remove  large  quantities  of  thermal  energy  from 
tightly  packed  electronics  primarily  on  board  spacecraft.  The  flat 
plate  heat  pipe,  and  the  side  flow  heat  pipe,  the  first  two  units 
were  tested  last  year.  The  flat  plate  removes  the  thermal  energy 
from,  the  electronic  units  to  be  cooled  and  the  side  flow  transfers 
the  energy  to  the  flash  plate  where  it  is  radiated  away  from  the 
craft . 

The  performance  of  the  flash  plate  was  the  primary  concern  of 
our  research  this  year.  Its  effects  of  both  forced  and  free 
convection  were  studied.  Effects  of  gravity  and  the  loss  of  energy 
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through  the  insulation  and  edge  effects  were  also  a  concern. 

The  plate's  facing  was  fabricated  form  aluminum  as  was  the 
wick  and  honeycomb  structure  inside.  The  working  fluid  was 
acetone.  The  plate  has  the  dimensions  of  11  3/8"  x  11  5/8"  with  a 
thickness  of  .36". 

The  first  tests  run  on  the  flash  plate  were  free  convection 
tests.  The  flash  plate  was  heated  by  11"  x  3"  foil  resistance 
heater.  Temperature  readings  were  taken  every  five  minutes  from 
eleven  thermocouples  placed  on  the  flash  plate  to  a  Fluke  2286A 
Datalogger.  Typical  tests  involved  starting  the  heater  at  30  watts 
and  letting  the  flash  plate  reach  steady  state,  then  increasing  the 
power  another  10  watts  and  again  allowing  the  plate  to  reach  steady 
state.  A  maximum  power  test  was  run  to  see  how  much  power  the 
plate  would  transfer  at  its  safe  operating  temperature  of  75 
degrees  C,  this  was  found  to  be  80  watts.  Tests  were  also  run 
while  tilting  the  plate  at  various  angles  to  determine  the  effects 
of  gravity  on  the  plate's  operation;  tilts  of  90  degrees,  45 
degrees,  30  degrees,  and  15  degrees  were  used.  The  temperature 
readings  were  then  plotted  into  graphs  using  Lotus  123.  Using 
these  graphs,  irregularities  were  looked  for  in  the  data  (fig  a; . 

The  set  up  for  the  forced  convection  tests  were  different.  A 
11  1/2"  X  11  1/2"  copper  cool  block  was  placed  on  the  condenser 
side  of  the  plate.  A  refrigeration  and  circulation  unit  was  used 
to  circulate  SR-1  Dowtherm  heat  exchange  fluid.  Six  thermocouples 
were  attached  to  the  evaporator  side  of  the  flash  plate,  a 
thermocouple  probe  was  placed  to  read  the  temperature  of  the  cool 
unit,  the  temperature  of  the  flow  into  the  cool  block,  and  the 
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temperature  of  the  flow  out  of  the  cool  block.  Also  connected  to 
the  Fluke  was  a  flowmeter.  As  with  the  free  convection,  the 
temperature  readings  were  graphed  using  Lotus  (fig  b)  . 

The  amount  of  heat  lost  during  the  free  convection  test  was 
calculated  using  the  following  equations. 

0=/2A(AT) 

The  "h"  is  found  using  the  following  equation; 


L 


'Nu"  is  found  using; 


i\7u^=[0.825  +  - 


o.387;?el^* 


[l+{0.4121xPr)®/^«J®^27 


]■ 


and  "Re"  is  found  using; 

'  Vo 

It  was  found  that  there  was  a  small  loss  of  energy  probably  due  to 
edge  effects  ano  less  back  through  the  insulation. 

Two  other  projects  were  worked  on  during  the  summer.  The 
study  of  the  effects  of  magnetism  on  the  capillary  pressure  of 
liquid  oxygen  was  started.  We  assisted  in  the  construction  of  a 
condenser  for  the  liquid  oxygen.  Because  of  the  volatility  of 
liquid  oxygen  it  was  not  feasible  to  keep  large  quantities  of  the 
substance  in  the  lab. 

We  also  attempted  to  construct  a  pipe  using  unidirectional 
nickel  wick.  A  square  pipe  was  first  constructed  and  work  was 
begun  on  a  method  for  creating  a  round  pipe. 
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Further  development  of  the  flash  plate  and  the  flat  plate 
system  will  allow  spacecraft  to  carry  more  electronics  or  more 
advanced  electronics  that  produce  larger  quantities  of  thermal 
energy.  Liquid  oxygen  working  fluids  could  be  assisted  by  a 
magnetic  field  increasing  the  capacity  or  the  pipe  that  it  is  used 
in.  The  nickel  wick  can  be  used  in  advanced  diode  heat  pipes  in 
the  future.  More  research  must  still  be  done  but  all  of  the  goals 
are  feasible. 
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"FROZEN  START  UP" 

HEESUN  CHOUNG 
MENTOR:  BRIAN  G.  HAGER 

AUGUST  13,  1990 


In  conjunction  with  the  Air  Force  High  School  Apprenticeship 
Program  and  Universal  Energy  Systems,  I  was  assigned  to  the 
project,  "Frozen  Start  Up"  which  was  being  conducted  in  the 
thermal  division  of  the  Aero  Propulsion  Laboratory.  "Frozen  Start 
Up"  is  an  experiment  which  involves  heat  pipes. 

Heat  pipes  are  designed  to  transport  large  amounts  of  heat 
from  one  location  to  another  over  a  small  temperature  gradient  with 
a  small  unit  size.  The  design  and  operating  principles  of  the  heat 
pipe  are  simple.  It  is  a  closed  tube  or  chamber  whose  inner 
surface  is  lined  with  a  porous  capillary  wick.  The  wick  is 
saturated  with  a  liquid  working  fluid.  Heat  is  then  applied  to  the 
evaporator  end  of  the  pipe,  thus  allowing  the  liquid  to 
vaporize.  The  vapor  travels  through  the  vapor  core  to  the 
condenser  section  where  it  condenses  releasing  the  latent  heat  of 
vaporization.  A  capillary  pressure  is  created  by  the  depletion  of 
liquid  in  the  wick,  causing  the  liquid  to  travel  from  the  condenser 
to  the  evaporator.  The  heat  pipe  should  continually  transport  the 
latent  heat  of  vaporization  from  the  evaporator  to  the  condenser 
without  drying  out  the  wick. 

One  practical  application  of  the  heat  pipe  is  for  thermal 
control  in  spacecraft.  Realizing  that  in  space  the  heat  pipe  must 
operate  in  sub-zero  temperatures,  research  is  currently  being  done 
in  the  frozen  state  to  simulate  the  conditions  in  space.  However, 
there  are  several  problems  associated  with  frozen  heat  pipes.  The 
most  serious  of  these  is  frozen  start  up.  A  frozen  pipe  usually 
dries  out  before  it  becomes  fully  operational.  The  solid  liquifies 
and  eventually  vaporizes  in  the  evaporator  section  of  the  pipe. 
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However,  the  working  fluid  often  remains  in  its  solid  state 
throughout  the  middle  and  condenser  section  preventing  the 
condensed  vapor  from  traveling  up  to  the  evaporator.  Thus,  dry  out 


occurs . 


The  purpose  for  this  "frozen  start  up"  experiment  is  to  add  to 
the  general  research  data  available.  Similar  tests  have  been 
conducted  by  W.  Bowman  of  the  United  States  Air  Force  Academy 
providing  results  showing  a  successful  "frozen  start  up." 

The  first  of  the  procedures  followed  were  calculations.  These 
calculations  were  used  to  determine  the  point  at  which  the  pipe 
would  dry  out.  Taking  into  account  the  characteristics  of  the 
pipe,  the  information  in  the  following  equations  were  used  to  find 
the  capillary,  sonic,  boiling,  and  entrainment  limits, 
respectively . 


■  (0.5L^+L,+0.5L,) 


°p. 


The  next  step  involved  the  instrumentation  of  the  pipe.  The 
copper  pipe  was  24  inches  long  and  had  a  diameter  of  one-half  inch. 
The  wick  inside  the  pipe  was  a  copper  wire  screen  with  the  working 
fluid  being  water.  Type  T  thermocouples  were  placed  every  two 
inches  along  the  pipe  in  order  to  read  the  temperatures  of  the 
pipe.  These  thermocouples  were  then  connected  to  a  data  logging 
system,  Fluke  2286A.  After  programming  the  Fluke  to  record 
temperatures  at  given  time  intervals,  tests  were  started.  The 
first  tests  were  characterizations  with  different  amounts  of  power 
supplied  to  the  heat  source.  The  heat  source  was  a  clam  shell 
heater  capable  of  reaching  temperatures  above  600  degrees  Celsius. 
Characterization  tests  were  run  to  provide  data  in  the  form  of 
graphs  for  comparison  to  "frozen  start  up"  tests. 

When  all  the  characterizations  of  the  pipe  were  completed, 
"frozen  start  up"  tests  were  implemented.  Cooling  the 
environmental  chamber  at  -15  degrees  Celsius,  50  watts  and  100 
watts  of  power  were  added  to  the  heater  to  begin  the  process  of 
"frozen  start  up.”  Other  tests  were  conducted  with  the  chamber  at 
-25  degrees  Celsius  and  -65  degrees  Celsius.  After  analyzing  the 
results  of  the  tests,  it  became  apparent  that  the  heater  was  not 
generating  the  proper  amount  of  heat  for  its  wattage  due  to  the 
fact  that  most  of  its  power  was  put  into  heating  its  own  mass. 
Therefore,  it  was  decided  to  replace  the  clam  shell  heater  with  a 
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smaller,  more  efficient  one.  Again,  characterizations  were  run  for 
comparison  using  the  smaller  heater. 

With  a  new  temperature  controller,  the  chamber  was  cooled  to 
a  constant  -10  degree  Celsius.  To  the  frozen  pipe,  different 
amounts  of  power  were  added  to  conduct  "frozen  start  up"  tests  at 
50  watts  and  100  watts.  By  comparing  the  graphs  of  these  tests  to 
the  characterizations,  it  was  concluded  that  successful  "frozen 
start  ups"  have  been  achieved  (See  graph  A  and  B) . 

This  experiment  has  provided  valuable  data  for  frozen  heat 
pipes.  Further  tests  could  be  done  with  different  working  fluids 
and/or  wick  types.  This  will  eventually  make  heat  pines  vital  to 
science  and  technology  in  space. 


CHARACTERIZATION  OF  HEAT  PIPE 

50  WATTS 


L-Z 


GRAPH  B 
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I 


INTRODUCTION 


At  the  time  of  my  apprenticeship,  the  project  "Lithium 
Batteries"  was  inactive,  therefore,  I  was  assigned  to  work 
on  a  project  entitled  "Nonaqueous  Battery  Research."  This 
"in-house"  project  is  being  carried  out  in  conjunction  with 
a  contractor  at  Wright  State  University  and  has  been  active 
for  less  than  a  year.  The  project,  as  its  name  implies, 
deals  not  with  aqueous  electrolyte  batteries  but  with 
molten  electrolyte  batteries.  Unfortunately,  I  was  unable 
to  be  involved  in  the  actual  testing  of  the  cells,  however, 
I  took  part  in  the  before  and  after  stages  of  the  research 
and  learned  many  things. 

II.  GENERAL  DESCRIPTION  OF  RESEARCH 

During  my  apprenticeship,  I  was  exposed  to  the 
background  and  history  of  the  the  project  as  well  as  the 
current  research.  For  instance,  the  process  begins  when 
David  Ryan  chooses  a  compound  that  he  believes  will  yield  a 
cell  with  a  high  energy  density.  This  compound  forms  the 
cathode  of  the  cell.  Next,  the  technician  synthesizes  the 
electrolyte  in  the  laboratory  by  mixing  lithium  chloride 
and  potassium  chloride  at  their  eutectic  point.  The 
eutectic  point  is  the  quantitative  mixture  of  the  two 
chemicals  that  has  the  lowest  possible  melting  point. 
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However,  a  binder  must  be  added  to  keep  the  electrolyte 
■from  flowing  in  its  molten  state.  A  lithium-aluminum  alloy 
mixed  with  a  percentage  of  electrolyxe  composes  the  anode. 
These  parts  are  made  into  a  cell  and  then  tested.  The 
results  are  compared  litn  existing  standards  to  check  the 
progress  of  the  project.  The  goals  of  this  research 
project  include  either  increasing  power  density  over 
existing  materials  or  keeping  the  same  power  and  making  the 
cells  smaller  and  lighter  in  order  to  save  space  and  money. 
The  development  and  perfection  of  these  cells  will  then 
allow  for  various  uses  in  industry.  For  instance,  these 
particular  cells  are  thermal  batteries  which  are  used  in 
such  things  as  weapons,  aircraft,  missies  (i.e. 
tow-missies),  and  bombs.  Basically,  they  are  employed 
where  electric  power  is  needed  for  a  short  duration  with  a 
long  storage  life  arid  quick  access.  Therefore,  this 
research  project  fits  into  the  larger  space  and  military 
research  done  by  the  laboratory.  By  observing  the  specific 
plans  for  the  use  of  thermal  batteries,  it  becomes  obvious 
that  Wright  Patterson  Air  Force  Base  is  in  a  position  to 
make  a  great  contribution  to  the  field. 

III.  DETAILED  DESCRIPTION  OF  RESEARCH 

Although  the  basics  of  the  project  may  seem  simple, 
the  preparation,  testing,  and  compiling  of  results  involves 
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a  long  and  complicated  process^  The  most  difficult  and 
tedious  task  is  the  synthesis  of  the  electrolyte.  First, 
the  lithium  chloride  and  potassium  chloride  are  measured 
out  and  mixed  together  in  a  twin-shell  blender.  The 
mixture  is  then  placed  in  a  oven  at  500*^0  and  melted  into  a 
clear  liquid.  After  cooling,  the  next  step  is  grinding  the 
mixture  into  a  very  fine  powder.  Then  10%  by  weight  of  the 
binder  is  added.  The  salt  is  placed  in  the  bottom  of  a 
special  type  of  dish  with  the  binder  on  the  top,  and  then 
the  dish  is  placed  in  an  oven.  At  400*^11;  the  salt  melts, 
but  the  temperature  must  be  500  to  525°C  before  the  binder 
can  be  mixed  in.  The  process  involves  stirring  for  a  while 
then  letting  it  heat  back  up.  These  two  activities  are 
alternated  for  most  of  an  8  hour  work  day  until  the  mixture 
is  uniform.  Then  it  is  cooled  until  it  becc  ries  brittle, 
and  finally  it  is  ground  into  an  extremely  fine  powder. 

This  entire  process  taxes  place  behind  the  doors  of  a  Dry 
Room.  This  provides  a  cool,  moisture-free  atmosphere  for 
working  with  certain  chemicals.  Thus,  the  electrolyte  is 
completed  and  set  aside  fur  the  time  being. 

After  the  engineer  selects  a  compound  for  the  cathode 
material,  the  contractor  at  Wright  State  University 
syntliesizes  it  in  powder  form.  Then  pellets  of  each  anode, 
cathode,  and  electrolyte  material  are  made.  The  technician 
places  1.5  grams  of  anode  material  (lithium-aluminum  alloy 
plus  electrolyte),  3  grams  of  cathode  material,  and  3  grams 
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of  electrolyte  individually  in  a  hydraulic  press  at  50,000 
pounds  of  pressure.  The  resulting  pellets  have  a  2  inch 
diameter  and  are  very  tnin.  These  pellets  are  stacMeo  with 
tha  electrolyte  in  the  middle  to  form  cells.  Nickel 
"dumbbells"  or  connectors  are  made  by  spot  weloing  nickel 
strips  to  nickel  circles  that  have  been  cut  with  a  punch 
and  die.  These  connectors  are  taped  onto  either  end  of  the 
cell.  Holes  are  punched  in  squares  of  ^ibrofrax  large 
enough  to  fit  the  cells  which  are  then  taped  to  the 
fibrofrax,  making  sure  to  seperate  the  negative  connectors 
from  the  positive  connectors.  Next,  a  piece  of  mica  is 
placed  on  either  side  of  the  cell  and  taped  together.  This 
mica  provides  insulation  so  that  the  cell  does  not  get  coo 
hot  during  testing. 

"Tiie  testing  is  done  on  a  single  cell  tester  in  a  dry 
box  with  an  atmosphere  of  argon.  The  cell  is  placed 
between  two  plates  while  a  computer  puts  a  load  on  the 
cell.  The  load  is  chosen  by  the  oper~tor  a, id  can  be 
changed  to  shew  various  effects.  The  cell  is  heated  up  and 
allowed  to  run  for  60  seconds  in  order  to  get  a  peak 
voltage  reading,  and  then  the  1 -Jid  is  removed  for  1  second 
and  replaced.  After  that,  the  load  is  removed  at  30  second 
intervals  for  1  second  until  the  cell  discharges 
completely.  The  data  (current  and  voltag*>  are  recorded  on 
a  plotter  and  then  analyzed.  The  70,  80,  -nd  907.  lifetimes 
are  measured,  and  the  power  density  is  calculated  in 
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watt-hours  per  kilogram  and  watt-hours  per  pound.  Thesa 
results  are  then  compared  to  the  power  density  measured 
■from  the  standard  cells  that  use  FeSj^  as  their  cathode 
material.  The  cells  are  then  dismantled  and  given  a 
"post-mortem"  examination.  This  is  to  record  any  physical 
characteristics  such  as  color,  texture,  or  hardness  that 
might  tell  of  changes  and/or  problems  that  occur  during 
testing.  This  step  ends  the  long,  complicated  process  of 
testing  nonaqueous  thermal  batteries. 

V.  RESULTS 


The  results  of  the  project  are  not  nearly  as  confusing 
as  the  procedure.  Basically,  two  vanadium  oxide  compounds 
have  been  tested  to  date.  Out  of  these  two,  both  have 
failed  to  produce  higher  energy  densities  than  the 
standard  FeSj,  cells.  The  next  compound,  a  sodium,  vanadium 
oxide  compound  will  be  tested  as  soon  as  the  computer 
program  is  modified.  The  engineer  does  not  think  that  this 
one  i>  i  1 1  be  any  better  than  the  two  previous  compounds. 
Howj'ver ,  he  says  that  he  has  another  compound  presently 
being  made  that  will  be  a  good  cathode  material. 

Therefore,  so  far  the  project  has  been  basically 
unsuccessful,  but  it  has  a  bright  future  that  is  sure  to 
yield  a  worthy  compound. 
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VI.  OTHKR  INTEREST "NG  OBSERVATIONS  AND  LESSONS  LEARNED 


Due  to  the  pause  in  research  caused  by  tne 
modification  of  the  computer  program  and  the  single  cc-l 
tester,  I  had  the  opportunity  to  work  on  another  "project." 
The  Environmental  Protection  Agency  is  beginning  to  crack 
down  on  the  careless  habits  of  the  government  scientists, 
therefore,  a  special  program  must  be  followed  by  the 
laboratory.  I  was  very  involved  in  the  reorganization  of 
the  lab  to  fit  the  guidelines  of  this  new  program.  I 
helped  take  inventory  of  all  the  chemicals  owned  by  the  lab 
and  then  I  looked  up  cou°s  and  labels  for  each  cf  them  in 
Federal  Codes  and  Regulations  books.  After  that  I  made 
appropriate  labels  and  helped  seperf :e  and  rearrange  all  of 
the  chemicals  on  the  proper  shelves.  Finally,  I  helped, 
take  another  inventory  and  posted  a  list  of  chemicals  at 
each  storage  location.  I  was  also  in  charge  of  making  sure 
that  there  was  a  Material  Safety  Data  Sheet  in  a  set  of 
books  in  5  different  locations  for  every  chemical  in  stock. 
■'  fc  last  step,  however,  was  beginning  to  fill  out  "2005 
fo  ns"  for  the  removal  of  all  of  the  chemicals  in  the 
basement  storage  area.  I  aiso  worked  on  sev-ral  smaller 
projects  such  as  designing  a  new  part  for  the  single  cell 
tester  and  plumbing  an  apparatus  for  the  hook  up  of  gas  to 
an  instrument.  ‘'"heref ore,  during  my  apprenticeship,  I  was 
always  busy  and  learning  many  new  things.  Overall,  I 


3-8 


believe  that  the  experience  was  well  worth  all  of  the  hard 


wor  k . 
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Final  ReDorc 
by 

Chris  Hatch 


for 


Suramer  Mentorship  Proaram 
Auer  16,  1990 


I  met  5rea  Caia  throuah  a  mentorship  oroarar  at  school. 

Since  we  oat  aiona  well.,  he  reaaested  me  for  tnis  eroarar..  I  want 
to  thank  him.  for  this. 

I  was  already  somewhat  familiar  with  the  layout  of  tee  lab. 
so  the  first  few  days  I  soent  /ettinc  to  know  the  computer  setup 
beino  used.  Mostly  1  had  to  use  Microsoft  DOS.  Microsoft 
Ouickbasic.  HP  Basic,  and  Unix,  but  I  learned  sore  Fortran  to  aid 
ry  understandina  of  an  already  existina  code. 

My  first  assianment  was  to  setup  Tscplot  'a  araphina  proaram) 
so  that  Hr.  Gala  could  take  data  from  the  math  model  of  a  planned 
turbine  testing  facility  and  obtain  meaninafai  graphic 
reoresentations  of  it.  The  .math  model  was  running  on  the  local 
Vax.  so  Mr.  Gala  and  I  set  up  the  PC  so  that  we  could  import  files 
from,  the  Vax  throuah  an  Iris  workstation. 

The  next  thina  1  had  to  do  was  set  uc-  ter.  different 
stvlesheets  for  the  ten  different  sets  of  data  chat  the  math  model 
oroduced.  It  was  necessary  to  make  two  stylesheets  for  each 
dataset  one  for  cutout  on  the  71  LaserWriter  and  the  other  for 
output  on  a  color  laser  printer. 

The  stylesheets  on  Tecplot  didn't  contain  all  the  necessary 
information  for  the  printouts  Mr.  Gala  wanted,  so  I  also  sec  up 
batch  files  controlling  the  default  settings  of  Tecplot.  To  aid 
the  prccsssino  of  data  from,  the  math  model .  Z  created  a  playback 
file  on  Tecolot  that  automatically  loaded,  manipulated  and  orinced 
all  ten  datasets  created  by  a  single  run  of  the  math  model. 

Once  I  had  finished  setting  up  Tecplot  on  the  PC  (a  Horchaace 
386)  I  started  the  same  process  on  an  Iris  workstation.  This 
reauired  chat  I  learn  the  Unix  operating  system,  so  I  spent  a  day 
doir.a  only  that. 

The  Iris  was  running  an  earlier  version  of  Tecplot  and  was  not 
fully  compatible  with  the  PC  version.  This  meant  that  X  had  to 
redo  much  of  my  earlier  work  on  the  PC.  I  also  created  a  playback 
file  on  Che  Iris  chat  loaded  and  displayed  every  dataset  from  a 
math  model  run  on  the  monitor  at  once.  This  was  an  easy  and  fast 
wav  of  scannino  data  as  it  was  produced,  but  the  PC  had  been  too 
slow  to  run  this  application. 

Mr.  Gala's  main  project  at  this  time  seemed  to  be  overseeing 
Che  construction  of  ATARR  (Advanced  Turbine  Aerochermal  Research 
Ria) .  a  turbine  cestina  facility  with  a  run  time  of  just  under  a 
second.  The  math  model  that  I  set  Tecplot  up  for  was  of  this 
facility. 

Over  the  next  couple  days  Hr.  Cala  had  me  catalog  the  lab's 
suoply  of  hotwires  using  D-Base  III.  The  lab  had  almost  one 
hundred  hotwires,  many  of  them  as  old  as  Z  as.  and  they  had  never 
been  properly  inventoried. 

I  then  beoan  to  trace  and  properly  label  the  wiring  between 
the  thermocouples  on  the  test  cable  in  the  hanoer  bay  outside  and 
Che  HP  Voltmeter  inside  the  lab.  The  test  eabla  had  been  used  by 
several  graduate  students,  each  of  whom  had  changed  it.  and  there 
was  no  useful  documentation  on  which  thermocouples  were  connected 
to  which  channels  on  the  voltmeter,  or  even  whether  or  not 
particular  thermocouples  were  working. 

This  took  several  days,  as  I  had  to  trace  every  wire  by  hand. 
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check  every  therr'ocouole  for  continuity,  and  run  tests  at  different 
tertsratures  to  see  which  thermocouples  still  functioned  properly. 

Once  I  had  finished  this  I  organized  my  data,  made  circuit 
diaarams  of  the  entire  setup,  and  put  all  the  data  into  the  PC. 

1  used.:  because  of  the  computer  setup  in  the  lab.,  Lotus  123  version 
2.0  and  3.0,  Ouattro  Pro,  and  D-Base  _I1.  I  had  it  so  that  changes 
to  the  thermocouple  setup  could  be  entered  in  either  Lotus  or 
Ouattro,  where  data  manipulation  was  easiest,  and  then  transferred 
to  D-Base  so  that  the  data  could  be  sorted  and  printed. 

The  second  to  last  week  I  worked  at  Wright  Patterson  Mr.  Cala 
went  on  vacation  gave  me  several  projects  to  work  on  while  he  was 
gone.  First  I  was  to  transfer  a  floppy  disk  containing  inventory 
information  for  all  the  equipment  in  the  lab  to  a  spreadsheet. 
This  oroved  difficult  because  of  the  extreme  size  and  length  of  the 
file  and  because  the  fields  in  it  were  not  properly  delimited.  I 
failed  to  fit  tnis  file  into  a  spreadsheet.,  but  when  Mr.  Cala  came 
back.,  we  succeeded  in  doing  so  by  splitting  the  inventory  file  uo 
into  several  blccKs  and  comoressino  the  data  on  it. 

Another  proiect  that  Mr.  Cala  left  me  was  tracing  the  m.enus 
of  the  Acquire  software  that  he  uses  for  data  acquisition.  I 
rapidly  finished  this  and  started  familiarizing  myself  with  HP 
Basic . 

The  reason  the  lab  still  used  eight  year  old  HP’s  was  that  all 
the  data  acquisition  software  we  had  was  written  for  this  machine. 
Mr.  Cala  had  written  a  utility  program  in  HP  Basic  that  allowed  for 
the  automatic  copying  or  purging  of  several  files  on  any  drive  in 
the  machine.  He  wanted  me  to  modify  this  code  to  do  several 
different  things.  Most  importantly,  he  wanted  to  ability  to  keep 
the  old  date  on  a  file  when  it  was  moved  or  copied.  I  had  some 
trouble  with  this  since  it  was  not  something  that  the  creators  of 
HP  Basic  had  thought  of  doing  and  the  manuals  were  vague. 

The  other  main  addition  I  was  to  make  to  his  code  was  the 
ability  to  scan  a  section  of  hard  disk  to  locate  and  then  remove 
all  unwritable  caps  in  the  disk.  These  gaps  were  created  because 
the  HP  does  not  fragment  files  like  an  IBM.  When  a  file  is  deletc-c 
on  the  HP,,  a  hole  in  both  the  disk  and  the  directory  is  created. 
The  hole  has  the  size  of  the  file  that  was  stored  in  it.,  but  it  is 
represented  by  only  one  hole  in  the  directory.  If  a  file  is  read 
into  a  hole  larger  than  it  is,,  the  hole  in  directory  is  filled, 
even  though  the  hole  on  the  disk  has  not  been  completely  filled. 
Because  of  this,,  one  five  meg.  section  of  hard  disk  had  two  meg. 
of  inaccessible  holes.  I  wrote  compression  routines  that  recovered 
this  wasted  space.  To  make  the  process  as  fast  as  possible,  I  used 
a  ramdisk  for  some  functions.  Unfortunately,  the  HP  has  only  four 
meg.  of  memory  and  sometimes  my  program  corrupts  this  memory, 
making  it  necessary  to  reboot  the  system  after  the  compression 
routine  has  finished. 

My  last  assignment  was  to  evaluate  Graf  tool  for  Mr.  McAurther. 
He  was  trying  to  find  a  suitable  graphing  program  that  the  lab 
could  accent  as  a  standard.  Since  I  was  the  most  familiar  with 
Tecplot,  I  was  qualified  to  compare  it  with  Graf  tool.  The  programs 
varied  widely  and  I  was  not  able  to  solidly  recommend  one  or  the 
other,,  so  my  report  simply  pointed  out  the  capabilities  of  each 
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Droarar  and  the  apciications  tr.at  thev  were  the  best  suited  for. 

Mr.  Gala  was  riore  than  haopy  to  aivs  me  time  to  learn  more 
about  what  other  oeoDle.  1  went  to  the  Air  and  Trade  Show  with  hiir 
and  he  let  me  spend  an  entire  afternoon  tourina  the  CRT  (Comoressor 
Research  Test  facility)  with  a  friend  who  worlcs  there. 

The  most  important  thine  1  aained  from  this  job  was  knowledae 
about  computers..  I  had  been  computer  literate  before  this.,  but 
through  workina  with  several  different  machines  and  lanouaaes..  I 
think  that  now  I've  become  truly  computer  competent.  I  wasn't 
involved  with  any  research  because  Mr.  Gala  wasn't  doina  at  the 
time.  But  iust  by  beina  there-..  I  picked  up  on  techniques  and  ideas 
that  will  be  useful  in  school  this  fall. 
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C  '  PROGRAM  “MULTICOPU"  -  COPY/PURGE  MULTIPLE  FILES 

20  I  WRITTEN  BY  GREG  GALA 

30  I  MODIFIED  BY  CHRIS  HATCH  AUG  1990 

40  IKOMPRESS,  KEEP  DATE,  AND  SHOW  HOLES  OPTIONS  ADDED 

SG  OPTION  BASE  1  i STARTS  SUBSCRIPTS  AT  '• 

60  DIM  Fiie_nane$<  150)180]  ,Tinedete$MS0 >1200]. Datet $180]  JiPiel $180] 

70  PRINTER  IS  CRT 

80  Pronpt:  • 

90  PRINT  "Do  you  wish  to  Copy,  Purge,  Listcat ,  Show  Holes,  Konpress  ,  or  Quit 
'> " 

100  INPUT  *(C/F/L/S/K/Q:."  ,Ans$ 

110  IF  UPC$(Ans$)="0"  THEN  STOP 

120  IF  UPC$(Ans$)="P“‘THEN  Purger 

130  IF  UPC$(Ans$)®“L"  THEN  Listcat 

140  IF  UPC$<Ans$  )-"C"  THEN  Copier 

150  IF  UPC$(Ans$)="K“  THEN  Konpresa 

160  IF  UPC$(Ans$>="S"  THEN  Show_holes 

170  GOTO  Prompt 
180  Listcat:  i 

190  OUTPUT  KBDj"!  .700,1“ I 

700  LINFUT  "Enter  msus  to  CATalog  7“  ,Cat_msus$ 

210  CALL  Numbrd_cat ( Ca t_msus$  ,CRT ,File_name$( •  ) ) 

220  GOTO  Prompt 

230  Copier: i 

240  OUTPUT  KBDt“:  ,700.0,0"! 

250  LINPUT  "SOURCE  msus  to  COPY  from  7" ,Source_m8u8$ 

260  OUTPUT  KBDi":  .700,1*1 

270  LINPUT  “DESTINATION  msus  to  COPY  to  .Dest.msusS 
280  CALL  Numbrd_cat { Source_msu8$ .CRT ,File_name$( •  ) ) 

290  Startcopy: INPUT  "Enter  FIRST  file  NUMBER  to  be  COPIED,  or  999  to  QUIT", FI 
300  IF  FI  =*999  THEN  Endcopy 

310  INPUT  -Enter  LAST  file  NUMBER  to  be  COPIED-,  (may  be  SAME  as  FIRST  for  ONLY 
I  C0PY)",F2 

320  INPUT  “Do  you  want  to  keep  the  old  time  and  date  on  these  files’  {Y/N>",An 
s$ 

330  IF  UPC$( AnsS  1 ’"Y"  THEN  CAT  Source_msus$  TO  Timedate$(»> 

340  CALL  Msus_presuf (De5t_m5us$ ,Dest_pre$ .De5t_5Lf$ > 

350  CALL  Msu5_pre8ufCSource_m8us$,Source_pre$,Source_8uf$) 

350  FOR  F=F1  TO  F2 

370  IF  UPC$(Ans$  )=-Y"  THEN  GOSUB  0ate_8et 

380  COPY  Source_pre$5Flle_nane$<F )iSource_suf$  TO  Dest_pre$&File_name$<F  )iDe 
5t_suf$ 

390  PRINT  FiIe_name${F)!*  COPIED  TO  *!0est_prB$!lFile_name$(F)SDe8t_suf$ 

400  IF  UPC$(Ans$)«"V  THEN  GOSUB  Oate.reset 

410  NEXT  F 

420  SOTO  Startcopy 

430  Endcopy:  ' 

440  SOTO  Prompt 

450  Purger:  ' 

460  OUTPUT  KBO I " : , 1 500 ,0" i 

470  LINPUT  "msus  to  PURGE  from  ,Puroe_msus$ 

480  CALL  H5us_pre5uf <Purge_msu5$ ,PurQe_pre$ ,PurQe_suf$ ) 

490  Startpurge;  i 

500  CALL  Numbrd_cat(Purge_msu8f  .CRT ,File_namet< * )  > 

510  INPUT  "Enter  FIRST  file  NUMBER  to  be  PURGED,  or  999  to  QUIT",Fl 
520  IF  FI *999  THEN  Endpurge 

530  INPUT  "Enter  LAST  file  NUMBER  to  be  PURSED,  (may  be  SAME  as  FIRST  for  ONLY 
1  PURSE >',F2 
540  FOR  F«F1  TO  F2 

550  PURGE  Purge_pr#$IFi le_nam#i(F ISPurge  suf$ 

560  NEXT  F 

570  GOTO  Startpurge 
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S80  Endpurge:  i 

530  GOTO  Prompt 
800  STOP 

Si0  Date_set:  IREMEMBERS  REAL  TIME  AND  DATE  AND  SETS  CLOCK  TC  TME  AND  DATE  Or 

FILES  BEING  COPIED 
BD0  RealtiPieS=TIME4.^TlriEDATE) 

B30  Raaldate$»DATES{ TIHEOATE ) 

640  Ff=F+7 

850  Oatel$=TinedateS(Ff  )CSS ,841 
880  TimeIS“Timedate$<Ff  )IB7,7! 3 
670  IF  Oatel$=  '  "  THEN 

680  SET  TIMEDATE  DATE< “ I  JAN  1 311 “  )+TIME< “ It : 1 1  : 1 1 "  ) 

830  RETURN 

700  END  IF 

710  IF  Tinel$*"  “  THEN 

720  SET  TIMEDATE  DATE(  "1  JAN  1 91 1  “  )+TIME<  ”  1  1  : 1 1  : 1 1  “ 

730  RETURN 

740  END  IF 

7S0  IF  DatetSC t  .  1  ]=“  “  THEN  Oatel$="0“a.Oate1$C2  ,93 
760  Date1$=Oatel$[ t  ,23&"  “&Datet$C4 ,63&"  1 S’&DatctSte  ,9] 

770  SET  TIMEDATE  DATE( Date! S  )+TIME( Timet  $  ) 

780  RETURN 

790  Enddate_set :  • 

800  Date_reset:  'RESETS  INTERNAL  CLOCK  TO  REAL  TIME  AND  DATE 
810  SET  TIMEDATE  DATE(RealdateS  )+TIME<ReaitiMe$  ) 

320  RETURN 
830  Enddate_ 

840  Kompress:  'DELETES  HOLES  IN  A  HARD  DISK  VOLUME 

850  PRINT  "You  cannot  compress  a  hard  disk  section  with  more  than  5  meg  on  it. 


860  PRINT  "Do  you  want  to  compress  using  a  blank  section  of  the  hard  disk  <5  m 
eg  max  )" 

870  INPUT  “a  ramdisk  <10874,  256  Byte  Rec  max)  or  quit’  < h/r/q )" .Ans$ 

880  IF  UPCS<An5S)="H*  THEN  Harddisk 

890  IF  UPC*(Ans$ >=“R“  THEN  Harddisk 

900  IF  UPC$< AnsS  )="0"  THEN  Prompt 
910  Endkompress:  ' 

920  Harddisk:  ' 

930  OUTPUT  KBDi";  .700,0.0"! 

940  LINPUT  “Msus  to  compress’"  .Source_msus$ 

950  CALL  Numbrd_cat( Source_msu8$ ,CRT ,File_name$( *  ) ) 

960  IF  UPC$<An5$)“"R"  THEn'’80TO  Make_ramdisk 
970  OUTPUT  KBDi":  ,700,0,3“ i 
980  LiNPUT  "Blank  msus  to  use’"  .Dest^msusS 
990  Ram:  ' 


1000  INPUT  "Enter  start  of  range  for  compression  or  999  to  quit.", FI 
1010  IF  FI -999  THEN  Prompt 

1020  INPUT  "Enter  end  of  range  for  compression. "  ,F2 
1030  INPUT  "Keep  old  dates  in  this  section’  <Y/N)',Z$ 

1040  IF  UPC*(Z$>-"Y"  THEN  CAT  Source_msu5$  TO  Timedate$(») 

1050  CALL  Msus_presuf < De5t_msusf ,Dest_preS ,0e8t_5uf$ ) 

1080  CALL  Msu5_presuf(Source_m8us$,Source_pret,Source_suf$) 

1070  FOR  F-FI  TO  F2 

1080  IF  UPC${Z*)="Y"  THEN  60SUB  Date_set 

1090  COPY  Source_pre$!rFile_name$(F )&Source_5uf$  TO  Oest_pre$iFile_namef<F )&De 
st_sufS 


1100  IF  UPCS<Z*)-"Y"  THEN  GOSUB  Date.reset 
1110  NEXT  F 

1120  PRINT  "Copy  complete" 

1130  INPUT  "Continue  with  compression’  Next  step  purges  old  flies.  CCont./Qui 
t )" ,Aa$ 

1140  IF  UPCt(Aa*>-"0"  THEN  Prompt 
1150  FOR  F-Fl  TO  F2 

1180  PURiE  Sour'a_pre$&File_nameS(F)&Source  8uf$ 

1170  NEXT  F...  „ 

1180  for  TO  F2 
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vg:  nocs':;£i="v  gOSUB  Dste_set 

120C  CCF-'  DeEt_preSaF;.s_nanet(F  )&Dest_siifS  TO  £ource_preS&'i ie_nameS ? F  )8iSour 
ce_suff 

1210  IF  UPCS(  ZS  THEN  GOSUB  Date.reset 

122C  'JFC$>hns$!="F"  thEN  SOTO  Rs"!i 

1230  PURGE  Dest_DrsSaFi  ia_naine$<  F  )SOest_suf$ 

I  240  Ran !  •: 

1250  NEXT  - 

1280  PRINT  "Conorass  conpi®^* 

1  270  EndheradiSi  :■ 

1280  GOTO  Prompt 
1290  f1ake_randi5l  :  > 

1300  initialize  tflEMORY  , O  ' ,10782  'SETS  UP  A  RAMDISK 
1310  Dest_isusS=“:f1EMORY.e'' 

1320  GOTO  Ran 
1330  Endnake_randi®*' ’■ 

1340  Show_hoies:  • 

1350  OUTPUT  KBDi“:  .700, 0,0“ i 

1360  LINPUT  "Enter  nusu  ta  evaluate ,Cat_nsusS 
1370  LINPU’'  "Route  to  Printer  or  to  Crf?  lP/C)".DisS 
1380  Ois=! 

1390  IF  UPCs;Dis$  )="0"  THEN  Ci5=701 
1400  CALL  Show_noie( Cat_nsus$  ,0i6  ) 

1410  Endshou_hoies f  • 

1420  GOTO  Prompt 
1430  END 

1440  SUB  Nunbrd_cat(MsusS ,Prt_dev.Na«e*(*))  'INSERTS  NUMBERS  IN  THE  CATALOG 

AND  READS  CATALOG  INTO  AN  ARRAY 
1450  PRINTER  IS  Prt_dev 

1460  CAT  MsusS  TO  Name$( *  ) 

1470  NameS<5)<'"FILE  "&Name«<S)C  1  .71  I 

1480  NameSlG  l^'NUM  "SNameStS >[1  .713 

1490  Name*( 7  )“"«—»  "iNameSl 7 )[  1  ,71 3 

1500  FOR  F=1  TO  7 

1510  PRINT 

1520  NEXT  F 

1530  FOR  F=1  TO  9 

1540  N=F+7 

1550  IF  Name*<N)=""  THEN  EndP*"^ 

1560  PRINT  "  •iUAL$<F)&”  “iNameSt N )[ 1  .71  3 

1570  Name$(F)-NameS(N)[l .203 

1580  NEXT  F 

1590  FOR  F=10  TO  99 

1G00  N=F+7 

1G10  IF  NaneS<N)=""  THEN  EndP^^ 

1520  PRINT  ■  "&VAL$(F)&"  "iNaneS(N  )C 1  .71 3 

1630  Name$(  F  )»N5"ie$(  N  H  1  .203 

1640  NEXT  F 

1650  FOR  F=I00  TO  150 

1660  N=F+7 

1670  IF  Name$<N)=""  THEN  Endp*"* 

1680  PRINT  "  "JVAL*(F>B"  ‘&NameS( N 111  ,71 3 

1690  Nane$(F)>NaneS(N)[1 ,203 

1700  NEXT  F 

1710  Endprt:  ' 

1 720  SUBEND 

1730  SUB  Msus_prtsuf<M5vsS  ,Msv9  pret  ,ll8V9_8uff  > 

1740  OPTION  BASE  1 

1750  P*P0S(l1sv5$,":" ) 

1760  IF  POl  THEN 

1 770  Msvs_pre$*HsvsS[ 1 ,P- 13 

1780  IF  ((HsvsfEP-hl  3<>*/">  AND  (MavsfCP-l  1 1 3<>*\* ) )  THEN  MBV6_pr«*-HBV9_|} 
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res& " 
1790 
1800 
1810 
1S2C 
183C 
<  150) 
1840 
1850 
1860 
1570 
1380 
1890 
1980 
1910 
1928 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2818 
2820 
2830 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

K 

2350 

56 

2360 

2370 

2380 


I  CONVERTS  ASCII  DATA  TO  NUMERIC 


I  CHECKS  BEGINING  OF  CATALOG  FOR  HOLES 


5-0  IF 

M3V5_suf$=Ms''‘=^‘^  ' 

SUBEND 

:LB  Show_hole(Cat$  .0  ' 

:iM  X$f1S0>t708  3 ,Add$( 158)120] .Si=e$; 15O  5C20I ,Rec$; 150)120]  ,Add' 150  ;  ,S;; 

, Reel  150 ),Gap< 152) 

CREATE  BOAT  “CATA:' .708  .3  ,3"  ,  150  .640 
5RINTER  IS  "CATA:,  ,700  .0,3"  :WIOT«  6C 

CAT  Cats  IREAD3  THE  CATALOG  TO  THE  FILE  CATA:  ,700,0,3 

PRINTER  IS  CRT 

ASSIGN  gPathl  TO  "CATA;  ,700  .0  ,3" (FORMAT  ON 
ON  END  gPathI  GOTO  Enough 
FOR  Y=1  TO  150  .  . ,  , 

ENTER  gPathI  '  '  '' 

IF  Y;5  then  AddS(y)=X$fY >143,47]  i READS  ADDRESS  OF  FILES 
le  Y-S  THEN  SiseSI Y  )=X$(Y)C24.28]  iREADS  REC/FILE  OF  FILES 
IF  y;5  THEN  Rec$( Y  )=XS( Y >[34  .3?]  'READS  BYTE/REC  OF  FILES 
File=Fiie+I  'COUNTS  NUMBER  OF  FILES  IN  VOLUME 

NEXT  Y 
Enough:  ' 

ASSIGN  gPathl  TO  • 

PURGE  “CATA: ,700 ,0-2“ 

FOR  Y»6  TO  File 

Add( Y )=VAL(Add$( Y  ) ) 

Si2(Y )=VAL<Size$<  Y  )  ) 

Rec<Y)=VAL(Rec$(Y), ) 

NEXT  Y 

IF  Add(B><)109  THEN 
Gap(S)«Add<6  >-109 
Add(S)=109 
Sii(5)=0 

F^O  IF  , 

FOR  Y=B  TO  (Fi** 

IF  Rec(Y)<>256  THEN  'DETERMINES  ADDRESS  SIZE  OF  FILE 
Zz*<Siz<Y>*Rec(Y) )  MOO  256 
Siz(Y)-Sii(Y)*Rec<Y)/256 
END  IF 

IF  Zz<)0  AND  2r>=*.S  THEN  Siz< Y  )«INT(S*z( Y > >+1  'ROUNDS  UP  DECIMALS 
Siz<  Y)=«INT(SiZ(  Y) ) 

Z2=0 

IF  (Add< Y)+Siz(Y >  )<>Add< Y+l  )  THEN  Gap( Y )*< Add( Y+1  )-< Add< Y  )+Slz( Y  ) ) ) 
'CHECKS  FOR  HOLES 

IF  X$<Y)[I5,18]  =  “80AT*  THEN  6ap( Y-1  )»6ap( Y-1  )-1 
NEXT  Y 

IF  X$<File)CI5.18]*"BDAT"  THEN  GapfFile-' )»Gap(Fxle-1  )-1 
PRINTER  IS  0 

FOR  Y=1  TO  File  'MAKE  PRINTOUT  CF  CATALOG 

PRINT  X$(Y) 

IF  V>=5  AND  Gap(y)<>0  THEN  PRINT  USING  'K  ,5D  ,K  ,50" ( "  HOLE 

'iGap<Y){"  2SB  " ; ( Add( Y  )+Siz( Y )  > 

NEXT  Y 

IF  Rec<File)<525G  THEN  'DETERMINES  SIZE  OF  LAST  ENTRY 
Zz»(Siz(Fiie)»Rec<File))  MOD  256 
Si z< File  >”Sir(File  >»Rec(File )/25G 
END  IF 

IF  Zzt>0  AND  Zz>*.5  THEN  SizIFile  )-INT( SizCFlIe >  )+l 1R0UN0S  UP  DECIMALS 
Stz<File>-lNT(Siz(File)) 

Zz*0 

GapCFile+l  )*(2t4SS-<Add(File>+SiZ<File)  Jll'DETERMINES  SPACE  LEFT  ON  DIS 


PRINT  USING  "K.SO.K.SO"!"  HOLE 

'  ( <  AddCFi ie )+Siz<Fi le  > ) 

Th“0 

FOR  Y»1  TO  Fiie+1  'TOTALS  EMPTY  SPACE  ON  DISK 
Th»Th+Sap<  Y ) 


* i6ap(File4t  >i ' 
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2330  NEXT  Y 

7400  °RINT 

2410  PRINT  USING  “K  ,BD  .K  ,7D  .K" i "’OTAL  HOLES  "iTh!"  * 

;Th»2S5:'i  BYTES" 

2420  =RINT  USING  "K  .20 . D  ,K“ i “MAX  RECORC:  POSSIBLE  21348  Th.-c 

b;/54SS0ss; )»i00i"  percent  used" 

2430  PRINTER  IS  CRT 

2440  SUBEND 
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PROJECT:  PUSH  PLATE  EVAPORATOR 


The  heat  pipe  was  designed  in  the  1940' s  to  advance  the 
science  of  heat  transfer.  The  heat  pipe  has  three  primary 
sections:  the  evaporator,  the  adiabatic  section,  and  the  condenser 
section.  A  working  fluid  in  the  evaporator  is  vaporized  by 
incoming  thermal  energy.  The  vapor  pressure  increases  and  the 
vapor  is  forced  through  the  aaiabatic  section  to  the  condenser 
where  the  vapor  is  condensed  and  thermal  energy  is  released.  The 
condensed  fluid  is  drawn  back  to  the  evaporator  section  through  a 
porous  wick  structure.  This  is  made  possible  by  a  drop  in 
capillary  pressure  in  the  evaporator  section  of  the  pipe.  In 
essence,  the  thermal  energy  was  transferred  from  the  evaporator 
section  of  the  pipe  to  the  condenser. 

Normally  the  heat  pipe  is  in  the  form  of  a  long  cylindrical 
pipe  used  to  transfer  heat  over  long  distances.  A  new  type  of  pipe 
was  needed  to  enhance  the  ability  to  collect  and  remove  heat  over 
large  surfaces,  or  to  increase  the  radiation  area. 

The  flash  plate  evaporator  is  the  third  unit  in  a  three  unit 
system  designed  to  remove  large  quantities  of  thermal  energy  from 
tightly  packed  electronics  primarily  on  board  spacecraft.  The  flat 
plate  heat  pipe,  and  the  side  flow  heat  pipe,  the  first  two  units 
were  tested  last  year.  The  flat  plate  removes  the  thermal  energy 
from  the  electronic  units  to  be  cooled  and  the  side  flow  transfers 
the  energy  to  the  flash  plate  where  it  is  radiated  away  from  ti 
craft . 

The  performance  of  the  flash  plate  was  the  primary  conce  n  of 
our  research  this  year.  Its  effects  of  both  forced  and  free 
convection  were  studied.  Effects  of  gravity  and  the  loss  of  energy 


5-2 


through  the  insulation  and  edge  effects  were  also  a  concern. 

The  plate's  facing  was  fabricated  form  aluminum  as  was  the 
wick  and  honeycomb  structure  inside.  The  working  fluid  was 
acetone.  The  plate  has  the  dimensions  of  11  3/8"  x  11  5/8"  with  a 
thickness  of  .36". 

The  first  tests  run  on  the  flash  plate  were  free  convection 
tests.  The  flash  plate  was  heated  by  11"  x  3"  foil  resistance 
heater.  Temperature  readings  were  taken  every  five  minutes  from 
eleven  thermocouples  placed  on  the  flash  plate  to  a  Fluke  2286A 
Datalogger.  Typical  tests  involved  starting  the  heater  at  30  watts 
and  letting  the  flash  plate  reach  steady  state,  then  increasing  the 
power  another  10  watts  and  again  allowing  the  plate  to  reach  steady 
state.  A  maximum  power  test  was  run  to  see  how  much  power  the 
plate  would  transfer  at  its  safe  operating  temperature  of  75 
degrees  C,  this  was  found  to  be  80  watts.  Tests  were  also  run 
while  tilting  the  plate  at  various  angles  to  determine  the  effects 
of  gravity  on  the  plate's  operation;  tilts  of  90  degrees,  45 
degrees,  30  degrees,  and  15  degrees  were  used.  The  temperature 
readings  were  then  plotted  into  graphs  using  Lotus  123.  Using 
these  graphs,  irregularities  were  looked  for  in  the  data  (fig  a) . 

The  set  up  for  the  forced  convection  tests  were  different.  .A 
11  1/2"  X  11  1/2"  copper  cool  block  was  placed  on  the  condenser 
side  of  the  plate.  A  refrigeration  and  circulation  unit  was  used 
to  circulate  SR-1  Dowtherm  heat  exchange  fluid.  Six  thermocouples 
were  attached  to  the  evaporator  side  of  the  flash  plate,  a 
thermocouple  probe  was  placed  to  read  the  temperature  of  the  cool 
unit,  the  temperature  of  the  flow  into  the  cool  block,  and  the 
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temperature  of  the  flow  out  of  the  cool  block.  Also  connected  to 
the  Fluke  was  a  flowmeter.  As  with  the  free  convection,  the 
temperature  readings  were  graphed  using  Lotus  (fig  b) . 

The  amount  of  heat  lost  during  the  free  convection  test  was 
calculated  using  the  following  equations. 

0=hA{AT) 

The  "h”  is  found  using  the  following  equation; 


h= 


NUjK 

L 


"Nu"  is  found  using; 


(0.825  +  - 


0.387^el^® 


[l+(0.4121xPr)®/i«]®/27 


and  "Re"  is  found  using; 

■I  va 

It  was  found  that  there  was  a  small  loss  of  energy  probably  due  to 
edge  effects  and  loss  back  through  the  insulation. 

Two  other  projects  were  worked  on  during  the  summer.  The 
study  of  the  effects  of  magnetism  on  the  capillary  pressure  of 
liquid  oxyocn  was  started.  We  assisted  in  the  construction  of  a 
condenser  for  the  liquid  oxygen.  Because  of  the  volatility  of 
liquid  oxygen  it  was  not  feasible  to  keep  large  quantities  of  the 
substance  in  the  lab. 

We  also  attempted  to  construct  a  pipe  using  unidirectional 
nickel  wick.  A  square  pipe  was  first  constructed  and  work  was 
begun  on  a  method  for  creating  a  round  pipe. 
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Further  development  of  the  flash  plate  and  the  flat  plate 
system  will  allow  spacecraft  to  carry  more  electronics  or  more 
advanced  electronics  that  produce  larger  quantities  of  thermal 
energy.  Liquid  oxygen  working  fluids  could  be  assisted  by  a 
magnetic  field  increasing  the  capacity  of  the  pipe  that  it  is  used 
in.  The  nickel  wick  can  be  used  in  advanced  diode  heat  pipes  in 
the  future.  More  research  must  still  be  done  but  all  of  the  goals 
are  feasible. 
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FINAL  REPMff  TO  UliS 


I.  Introduction 

*nie  foliating  is  my  final  report  on  the  work  tdiat  I  have  cksiw 
v4iiie  at  the  Ccrapressor  Research  Facility,  Wright-Fattereon  APB,  Ohio. 

1  vas  employed  here  frcm  18  June  to  17  August  1990.  This  report 
includes  descriptions  of  all  major  tasks  that  I  have  completed. 

II.  A.  CoRputer  Systems 

The  first  v«ek  of  vrork  was  vdien  I  vras  taught  the  majority  of  the 
computer  systems  tliat  I  iiave  used.  I  was  taught  how  to  use  T-PLOT,  on 
the  MAIN  system,  PV-WAVE,  on  the  VAX  system,  and  QiABLE 
Spre^teheet/GraEMcs,  on  tiie  Zenitli  Z248  PC.  1  ves  required  to  use  ttie 
three  systems  to  prockice  plots  of  data  from  con^ressor  tests  that  were 
performed  at  this  facility.  My  first  plot  vas  created  with  the  T-PLOT 
prtsgram  ^  TMs  program  uses  data  from  the  Real-Time  Data  Tapes  found 
at  the  CRF  to  produce  a  plot  that  is  defined  by  the  operator.  I  then 
reproduced  the  same  plot^  using  the  VAX  system  so  ttiat  I  could  compare 
one  format  to  tfie  otlier.  lliis  gave  ne  saiie  practical  e.’tperieiice  on 
both  systems. 

B.  F119  Progranming 

After  experimenting  wiUi  tlie  MAIN  and  VAX  systems,  1  was  asked  to 
use  the  Q(AfiL£  Spreadsheet  program  on  the  Zenith  Z248  PC  to  produce 
several  plots.  TO  create  these  plots  I  had  to  hand  enter  over  1,509 
figures  and  equatiofis.  llie  figures  I  received  vere  fron  tlie  CRF  test 
of  the  F119  caipressor  tfjat  was  dune  from  22  March  until  6  Jui®  1990. 
Tlie  figures  are  stored  in  Uie  TOst  Mensor  Data  Books.  I  tlien  proceeded 
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to  use  a  progran  called  KEfiMlT  to  the  figures  fron  the  spreadsteet 
on  the  disk  and  put  them  onto  tc^  in  the  V3^  systen.  After  that,  I  vas 
i^le  to  write  a  progran  that  produced  plots  of  specific  data.^  1  used 
these  plots  to  find  errors  in  the  raw  data  in  the  Mensor  Data  Books. 
After  correcting  several  errors  I  printed  the  plots  again,  this  time 
using  the  corrected  data.  Over  the  next  week  I  continued  to  make 
changes  in  the  progran,  and  the  plots,  until  they  finally  were  exactly 
as  th^  were  supposed  to  be. 

C.  JPTE  65  Plots 

Hie  next  project  1  was  given  w;^  to  write  anotfier  progran.  This 
progran  M3uld  also  be  written  on  tlie  Zenith  Z248  PC  and  was  to  use  Uie 
ENABLE  Spreadsheet/Grefhics  prolan.  The  data  to  be  plotted  was  from 
the  XIE  65  test^,  and  it  would  be  of  certain  selected  Mensors  and 
Deleted  Mensors  that  are  in  the  lest  Msnsor  Data  Books  for  the  XIE  65 
test  that  was  run  from  10  July  to  31  July  1990.  I  was  required  to  set 
up  the  fonnat  for  ttiese  plots  axi  to  correct  errors  in  tlie  data.  All 
of  this  took  several  days  to  ccmplete.  After  ccnpleting  tliis  program  I 
had  to  update  the  data  every  day  and  prxxluce  plots  of  tlie  ccnhined  data 
so  that  trends  in  tie  acquisition  of  the  data  or  in  tie  data  itself 
could  be  easily  seen. 

0.  Control  Room  Activities 

I  had  first  ciiaiee  to  do  vork  In  tie  control  Room  vJen 
migineet^  Ciuris  Nbrland  and  Ed  Fitch  asked  for  my  assistaiee  in 
performing  a  check  that  is  done  before  all  ccnpressor  tests  begin. 

This  procedure  is  called  a  'chaiuelization  deck'  or  an  'end-to-end 
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check'.  IMS  ma  very  interesting  and  I  learred  a  great  deal  fron  it. 
■Hus  check  is  nade  t»  erisure  that  all  sensor  lines  caning  iron  the 
aarfoessor  to  be  tested  are  taking  accurate  readings.  If  tMs  cfieck 
ms  not  perfomed  it  vcuid  be  ijipossibie  to  consider  all  the  readings 
as  ^:curate,  and  tiiat  Mxtld  inemi  tJiat  tite  test  results  could  be 
dlsr^juted  by  the  caipa.Ty  or  its  coipetitors. 

E.  BASIC  progran 

Ihe  final  task  that  I  was  given  was  to  write  ny  own  progran, 
unassisted,  in  BASIC.  This  progran  finds  tlie  percent  deviation  of  the 
pressure  ratio,  efficiency,  and  belhnouth  and  venturi  mssflows.  'Ib 
write  this  program,  I  had  to  get  equations  from  anot))er  program  that 
was  in  the  language  of  FORTRAN.  I  then  transfered  the  equations  into 
BASIC.  Diis  was  especially  difficult  because  X  do  not  kixTw  FCMHRAN.  I 
worked  cm  this  program  for  the  last  month  of  my  enplgyment  at  the  CRF. 
It  is  new  gaing  to  be  used  to  help  some  of  the  engineers  correct 
potential  prcA>lans  before  they  can  cause  serious  damage^. 

III.  Conclusion 

Ihough  my  time  at  the  Cempressor  Research  Facility  was  short,  I 
have  leauned  neny  Utings.  I  tiqpe  that  1  was  able  to  iielp  ttie  people  at 
tte  CRF  with  wtion  I  worked,  and  I  am  very  grateful  to  than  for  all  of 
their  patience,  and  assistance,  and  to  you  at  Universal  Energy  Synstems 
for  the  c^jportunity  to  work  witli  these  people. 
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1.  '  See  plot  'Ccnpo^sor  Ferformanoe' . 

2.  See  plot  'HAEOST  Conf^nessor  Ferfotnanoe' . 

3.  See  plots  labeled  'Groi^  1' . 

4.  See  plots  labeled  'Group  2' . 

5.  See  plots  labeled  'Group  3' . 
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SENSITIVITY  OF  WAVT  TO  HUMIDITY 
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TOTAL  PRESSURE  (PSD  GROUP  3 


FROZEN  START  UP 

CAROL  ROGERS 
MENTOR;  BRIAN  G.  HAGER 


AUGUST  13, 1990 


In  conjunction  with  the  Air  Force  High  School  Apprenticeship 
Program  and  Universal  Energy  Systems,  I  was  assigned  to  the 
project,  "Frozen  Start  Up"  which  was  being  conducted  in  the 
thermal  division  of  the  Aero  Propulsion  Laboratory.  "Frozen  Start 
Up"  is  an  experiment  which  involves  heat  pipes. 

Heat  pipes  are  designed  to  transport  large  amounts  of  heat 
from  one  location  to  another  over  a  small  temperature  gradient  with 
a  small  unit  size.  The  design  and  operating  principles  of  the  heat 
pipe  are  simple.  It  is  a  closed  tube  or  chamber  whose  inner 
surface  is  lined  with  a  porous  capillary  wick.  The  wick  is 
saturated  with  a  liquid  working  fluid.  Heat  is  then  applied  to  the 
evaporator  end  of  the  pipe,  thus  allowing  the  liquid  to 
vaporize.  The  vapor  travels  through  the  vapor  core  to  the 
condenser  section  where  it  condenses  releasing  the  latent  heat  of 
vaporization.  A  capillary  pressure  is  created  by  the  depletion  of 
liquid  in  the  wick,  causing  the  liquid  to  travel  from  the  condenser 
to  the  evaporator.  The  heat  pipe  should  continually  transport  the 
latent  heat  of  vaporization  from  the  evaporator  to  the  condenser 
without  drying  out  the  wick. 

One  practical  application  of  the  heat  pipe  is  for  thermal 
control  in  spacecraft.  Realizing  that  in  space  the  heat  pipe  must 
operate  in  sub-zero  temperatures,  research  is  currently  being  done 
in  the  frozen  state  to  simulate  the  conditions  in  space.  However, 
there  are  several  problems  associated  with  frozen  heat  pipes.  The 
most  serious  of  these  is  frozen  start  up.  A  frozen  pipe  usually 
dries  out  before  it  becomes  fully  operational .  The  solid  liquifies 
and  eventually  vaporizes  in  the  evaporator  section  of  the  pipe. 
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However,  the  working  fluid  often  remains  in  its  solid  state 
throughout  the  middle  and  condenser  section  preventing  the 
condensed  vapor  from  traveling  up  to  the  evaporator.  Thus,  dry  out 
occurs . 

The  purpose  for  this  "frozen  start  up"  experiment  is  to  add  to 
the  general  research  data  available.  Similar  tests  have  been 
conducted  by  w.  Bowman  of  the  United  States  Air  Force  Academy 
providing  results  showing  a  successful  "frozen  start  up." 

The  first  of  the  procedures  followed  were  calculations.  These 
calculations  were  used  to  determine  the  point  at  which  the  pipe 
would  dry  out.  Taking  into  account  the  characteristics  of  the 
pipe,  the  information  in  the  following  equations  were  used  to  find 
the  capillary,  sonic,  boiling,  and  entrainment  limits, 
respectively . 
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The  next  step  involved  the  instrumentation  of  the  pipe.  The 
copper  pipe  was  24  inches  long  and  had  a  diameter  of  one-half  inch. 
The  wick  inside  the  pipe  was  a  copper  wire  screen  with  the  working 
fluid  being  water.  Type  T  thermocouples  were  placed  every  two 
inches  along  the  pipe  in  order  to  read  the  temperatures  of  the 
pipe.  These  thermocouples  were  then  connected  to  a  data  logging 
system.  Fluke  228 6A.  After  programming  the  Fluke  to  record 
temperatures  at  given  time  intervals,  tests  were  started.  The 
first  tests  were  characterizations  with  different  amounts  of  power 
supplied  to  the  heat  source.  The  heat  source  was  a  clam  shell 
heater  capable  reaching  temperatures  above  600  degrees  Celsius. 
Characterization  tests  were  run  to  provide  data  in  the  form  of 
graphs  for  comparison  to  "frozen  start  up"  tests. 

When  all  the  characterizations  of  the  pipe  were  completed, 
"frozen  start  up"  tests  were  implemented.  Cooling  the 
environmental  chamber  at  -15  degrees  Celsius,  50  v/atts  and  100 
watts  of  power  were  added  to  the  heater  to  begin  the  process  of 
"frozen  start  up."  Other  tests  were  conducted  with  the  chamber  at 
-25  degrees  Celsius  and  -65  degrees  Celsius.  After  analyzing  the 
results  of  the  tests,  it  became  apparent  that  the  heater  was  not 
generating  the  proper  amount  of  heat  for  its  wattage  due  to  the 
fact  that  most  of  its  power  was  put  into  heating  its  own  mass. 
Therefore,  it  was  decided  to  replace  the  clam  shell  heater  with  a 
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smaller,  more  efficient  one.  Again,  characterizations  were  run  for 
comparison  using  the  smaller  heater. 

With  a  new  temperature  controller,  the  chamber  was  cooled  to 
a  constant  -10  degree  Celsius.  To  the  frozen  pipe,  different 
amounts  of  power  were  added  to  conduct  "frozen  start  up"  tests  at 
50  v/atts  and  100  watts.  By  comparing  the  graphs  of  these  tests  to 
the  characterizations,  it  was  concluded  that  successful  "frozen 
start  ups"  have  been  achieved  (See  graph  A  and  B) . 

This  experiment  has  provided  valuable  data  for  frozen  heat 
pipes.  Further  tests  could  be  dona  with  different  working  fluids 
and/or  wick  types.  This  will  eventually  make  heat  pipes  vital  to 
science  and  technology  in  space. 
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CHARACTERIZATION  OF  HEAT  PIPE 
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ARMAMENT  LABORATORY 


INTRODUCTION 
SECTION  1 

This  suinner  I  worked  in  the  Fuzes  and  Guns  Branch  of  the  Air 
Force  Armament  L^oratory  at  Eglin  Air  Force  Base.  I  helped  my 
mentor,  Don  Cunard,  with  a  exploratory  development  fire  control 
program  called  BSTING  (Beam  Sight  Technology  Incorporating  Nicpit 
vision  Goggles).  BSTING  is  a  laser  targeting  system  used  in 
conjunction  with  night  vision  goggles  which  will  help  Special 
Operations  helicopter  gunners  be  more  effective. 

My  assignment  was  to  calibrate  and  integrate  instrumentation 
for  BSTING  flight  testing  at  China  Lake  Naval  Weapons  Center,  CA,  and 
to  research  wind  measurement  systems  to  enhance  BSTING 's 
capabilities. 

I  worked  with  the  mchines  in  Bay  9  to  construct  rarts  for  the 
BSTING  test.  I  also  researched  three  wind  systems  which  I  will 
describe  in  detail  later.  By  talking  with  MNP  technicians  I  learned 
the  inportance  of  mechanical  safeties  in  fuzes  as  well. 
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the  conputer  programs.  Fred  Bath  and  Scott  Turner  also  deserve 
recognition  for  their  guidance  in  showing  me  hew  to  use  the  nachines 
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BACKGROUND 
SECTION  3 

My  research  project  was  related  to  the  BSTING  program.  Further 
infornetion  on  the  BSTING  program  is  needed  to  Cully  urxSerstand  the 
reason  behind  my  research.  The  systems  objective  is  to  increase  the 
effectiveness  of  special  operations  helicopter  gunners  that  use  crew 
operated  weapons  and  night  vision  goggles.  This  will  be  done  by 
replacing  tracer  rounds  with  a  laser  gun  sight  that  will  increase 
ammunition  efficiency,  increase  first  burst  hits,  increase  aircraft 
survivability,  and  decrease  training  time.  The  BSTING  uses  an  infra¬ 
red  laser  that  is  offset  from  a  gun's  boreline  with  two  servomotors 
to  compensate  for  azimuth  and  elevation.  Currently  the  system  does 
not  take  wind  velocity  in  to  account  along  the  fli(^t  path  of  the 
bullet  nor  at  the  target's  location.  This  is  where  ny  research  fit 
in. 
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PROJECT 
SECTION  4 

I  researched  three  types  of  wind  measurement  systems;  two  s^tems 
using  carbon  dioxide  lasers  aerating  at  10.6  micrometers,  the  other 
used  a  neodymiumryag  laser  operating  at  1.06  micrometers. 

The  first  system  I  investigated  was  the  speckle- turbulence 
interaction  system.  This  system  used  a  coherent,  continuous  wave 
carbon  dioxide;,  laser .  The  laser  beam  was  split  in  a  90%  /  10%  ratio. 
The  90%  beam  was  then  modulated  to  37.5  MHz  and  transmitted  into  the 
atmt^phere.  The  remaining  10%  of  the  beam  acted  as  the  local  oscil¬ 
lator  and  was  modulated  at  42.5  ^fi^z. 

The  system  had  2  receivers  in  a  horizontal  plane,  each  with  a 
separate  field-of-view.  4s  the  return  signals  are  received  they  are 
mixed  with  the  local  oscillator  signal  to  cancel  out  and  leave  a  5 
MHz  signal.  This  was  done  to  eliminate  signal  noise.  The  5  MHz 
signal  was  then  further  filtered  down  to  100  kHz  and  precision  recti¬ 
fied.  An  average  peak  value  was  measured  for  each  receiver.  As  the 
wind  blew  the  particles  in  a  certain  direction  the  peak  values  would 
slowly  transfer  from  one  receiver  to  the  other.  The  time  delay  for 
the  transfer  and  the  distance  between  the  receivers  was  measured  and 
used  to  calculate  the  wind  velocity.  This  system  had  an  error  of  .5 
meters  per  secorwl  for  a  range  of  1  km. 

(SEE  FIG.l) 


8-5 


The  neodpiiuntyag  laser  was  used  to  measure  wind  velocity  in  the 
second  system  I  researched.  This  system  was  developed  by  Cdierent 
Technologies  in  Boulder,  Colorado.  The  nd:yag  is  diode  pumped  and 
sent  through  an  isolator  to  make  the  beam  coherent.  The  beam  is  then 
split,  one  rart  becoming  the  local  oscillator  and  the  other  the 
transmit  beam. 

The  transmit  beam  is  modulated  at  200  MHz  and  then  gated  to 
create  a  pulsed  effect.  The  beam  is  then  sent  through  a  amplifier 
and  telescoped  into  the  atmosphere.  The  same  telescope  collects  the 
return  signal  and  sends  it  to  a  fiber  optic  coupler  where  tne  return 
signal  is  mixed  with  the  local  oscillator  signal,  h  cooled  detector 
is  unnecessary  since  a  laser  diode  is  used,  making  the  system  less 
expensive.  The  mixed  signal  is  sent  from  the  detector  to  a  signal 
processor  where  the  doppler  shift  is  measured  and  correlated  to  the 
wind  velocity.  This  system  has  a  range  of  3.5  km  with  a  resolution 
of  200  m. 

(SEE  FIG. 2) 


The  last  system  I  researched  was  a  oc^erent  doppler  liefer  which 
used  a  carbon  dioxide  laser.  The  beam  was  split  arw  pulsed  with  one 
portion  being  the  transmit  beam  and  the  other  being  the  local  oscil¬ 
lator.  The  beam  was  telescx^sed  to  the  target  and  backscatter  returns 
from  aerosol  particles  was  received  by  the  telescope.  From  there  the 
sigial  is  s«it  to  a  photomixing  receiver  emd  coupled  with  the  local 
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oscillator  signal.  The  receiver  changes  the  optiol  frequoicies  to 
radio  frequencies,  a  process  known  as  heterodyne  detection.  Signal 
processing  is  then  used  to  find  the  wind  velocity- 

The  spectral  width  of  the  transmit  beam  is  inportant.  If  it  is 
not  wide  enough  to  overlap  the  largest  e)£pected  doppler  shifted 
sigial  there  will  be  no  cancellation  of  frequencies,  no  ctoppler 
shift,  and  hence,  the  wind  velocity  cannot  be  calculated.  This 
system  has  a  range  of  up  to  30  km  with  a  resolution  between  150  and 
300  meters. 

(SEE  FIG. 3) 


OONaUSION 
SECTION  5 

In  conclusion,  all  t±ie  systems  I  researched  had  the  necessary 
range  and  resolution  to  upgrade  the  BSTING  program  but  the  most 
likely  candicktes  use  laser  diodes  and  uncooled  detectors.  The 
neodtmiuni;yag  and  the  speckle- turbulence  systems  fit  these  specifi¬ 
cations. 

The  ndzyag  system  has  both  laser  diodes  and  uncooled  detectors. 
But  a  disadvantage  for  this  j.;,stem  is  that  it  has  a  telescope.  The 
BSTING  program  r^ecte  the  gun  si<^t  and  related  equipment  to  be  as 
compact  as  possible  and  a  telescope  would  be  bulky. 

The  speckle-turbulence  interaction  system  has  a  potential 
application  to  BSTING.  Althou^  it  currently  uses  a  carbon  dioxide 
laser  and  cooled  detectors,  the  low  power  required  to  operated  the 
system  (1  to  2  watts)  would  allow  laser  diodes  and  uncooled  detectors 
to  be  substituted.  A  strergth  of  this  system  is  that  it  has  no 
telescope.  A  disadvantage  of  this  system  is  that  wind  speed  meas¬ 
urements  are  only  possible  in  the  horizontal  plane  because  of  the 
horizontal  orientation  of  the  detectors;  a  third,  vertically  orient¬ 
ed,  detector  would  need  to  be  added  to  account  for  vertical  wind 
movement. 
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MISCELLANEOUS 
SECTION  6 

This  sunmer  I  also  inproved  skill  on  the  GEM  graphics  and 
WordStar  programs  in  naking  my  presentation.  I  also  learned  how  to 
read  wiring  diagrams  and  maintenance  schematics  in  calibrating  a 
magietic  recorder  to  bo  used  in  BSTING  flight  tests  at  China  Lake 
Naval  Weapons  Center,  CA. 

In  discussions  with  Nunzio  Zunmo,  our  Laboratory  Section 
Chief,  I  learned  the  importance  of  fuze  safe-and-arm  mechanisms  for 
explosive  munitions.  Safe-and-arm  mechanisms  ensure  that  the  deto¬ 
nator  is  not  aligned  with  or  is  kept  separate  from  the  itain  explosive 
charge  of  the  munition.  This  is  inportant  so  that  if  the  munition 
were  in  a  fire  (either  on-board  an  aircraft  or  in  storage)  or 
inadvertantly  dropped,  the  main  munition  char^  will  not  accidently 
detonate.  Exanples  of  weapons  that  require  fuzes  are:  high  explosive 
incendiary  gun  amnunition,  missiles,  bombs,  mines,  etc. 
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My  project  for  the  summer  of  1990  was  entitled 
S.A.S.S.E.  (Star  Availability  for  Sensor  -  Specific 
Evaluation).  This  program  had  two  basic  parts; 
Alpha/Beta  and  D.U.M.B.O. 

Part  one  consisted  of  two  programs;  Alpha  (which 
requests  the  user  to  input  star  names  and  addressed  to 
be  matched  with  SAO  identification  numbers  in  order  to 
modify  existing  star  map  data  files)  and  Beta  (which 
places  the  brightest  500  stars  alphabetically  in  a 
file,  grouping  stars  by  constellation). 

Part  two  of  S.A.S.S.E.  was  appropriately  entitled 
D.U.M.B.O.  (Determining  Uranographic  Matches  from  Bands 
Observed).  It  matched  stars  in  an  SAO  visual  map  and 
an  AFGL  IB  map  and  then  computed  spectral  irradiance  in 
a  waveband  of  interest. 

Both  the  Alpha/Beta  and  D.U.M.B.O.  portions  of 
S.A.S.S.E.  enabled  much  sensor  -  specific  evaluation  to 
be  performed  during  the  summer  at  AFATL/SAI . 
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I  would  like  to  give  a  special  "thanks"  to  all  of 
the  people  who  allowed  me  to  participate  in  the  HSAP 
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During  the  summer  of  1989,  much  work  on  stellar 
navigation  was  done.  This  work,  though,  was  neither 
sensor  specific  nor  allowed  for  a  passive  sensor.  It 
did  however,  research  an  active  sensor  that  would  sight 
and  evaluate  a  single  star,  reorient  the  sensor,  sight 
a  second  star,  and  determine  position  based  on  those 
two  measurements. 

This  summer  a  new  set  of  criteria  was  established: 
alterations  for  a  passive  sensor  needed  to  be  performed 
and  stars  needed  to  be  identified  by  constellation 
names  and  star  addresses  verses  simply  star  numbers  or 
positions . 

There  were  two  maps  used  to  research  and  evaluate 
star  sensing  under  this  new  criteria:  an  SAO  visible 
map  of  258,997  stars  and  an  AFGL  IH  map  of  only  6,146 
stars. 
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Before  the  Alpha/Beta  programs  were  written,  some 
hands  on  astronomy  was  done.  Five  hundred  stars  were 
located  on  star  maps  and  their  names  and  addressed  were 
recorded.  Next,  programs  Alpha  and  beta  were  written 
to  take  this  information  and  convert  it  to  star  data 
files  with  other  star  data  on  them. 

Next,  D.U.M.B.O.  had  been  written  by  engineer 
Laura  Sterrett,  during  the  spring  of  1990,  based  on 
another  program  from  Rockwell  International.  ^Laura  was 
soon  relocated  in  D.C.  before  debugging  and  the  final 
data  manipulations  were  incorporated  into  the  program. 

Then,  for  the  summer  cc  1990' s  secondary  project, 
D.U.M.B.O.  (Determining  Uranographic  Matches  from  Bands 
Observed)  had  to  be  completed  and  perfected.  After 
becoming  well  acquainted  with  Rockwell's  algorithms  and 
spectral  irradiance  conversions,  D.U.M.B.O.  was 
successfully  completed. 

Both  of  these  portions  of  S.A.S.S.E.  (Star 
Availability  for  Sensor  -  Specific  Evaluation)  enabled 
observation  and  further  understanding  of  a  passive  star 
sensor,  its  applications,  and  its  limitations. 

After  completing  stellar  data  files  and  confirming 
their  accuracy,  these  files  can  be  accessed  by  the  star 
sensor  for  periodic  navigational  checks  during  flight 
to  aide  the  interceptor.  These  checks  provide 
assurance  of  the  interceptor's  mid-course  performance 
to  confirm  final  interception  of  target. 

These  star  data  files  will  be  accessed  by  the  star 
sensor  and  the  appropriate  data  will  be  fed  into  the 
Kalmar,  Filter  for  further  necessary  computations. 
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To  perform  the  necessary  star  location  on  star 
maps,  right  ascension  must  be  converted  to  degrees  by 
multiplying  by  the  conversion  factor  "2/3".  Next,  the 
right  ascension  and  declination  are  read  on  a  celestial 
map  much  like  latitude  and  longitude,  respectively. 
These  star  ID's  consist  of  a  Greek  letter  to  identify 
which  star  in  the  constellation  is  referred  to,  the 
constellation  name,  and  proper  name  which  may  or  may 
not  be  known.  Prom  these  addresses,  the  stars  were 
individually  identified  and  recorded  in  a  catalog  with 
other  data  such  as  visual  magnitude  and  spectral  type. 

After  this,  the  brightest  500  stars  identified 
through  the  program  MAXMAG500.FOR  (Appendix  A)  were 
combined  with  the  manually  determined  star  addressed 
and  compiled,  using  the  Alpha  (Appendix  B)  and  Beta 
(Appendix  C)  programs.  The  Alpha  program,  in  turn, 
organized  the  brightest  500  stars  alphabetically  by 
constellation  and  descending  visual  magnitudes.  Then, 
the  Beta  program  organizes  this  data  file  according  to 
constellation  groupings  and  descending  visual 
magnitudes . 

The  second  portion  of  S.A.S.S.E.  was  entitled 
D.U.H.B.O.  (Determining  Uranographic  Hatches  from  Bands 
Observed).  After  reviewing  the  skeletal  program  for 
stellar  matching,  many  alterations  and  additions  were 
made.  Each  subroutine  was  checked  for  errors  in  logic 
and  typing.  The  subroutine  IRRADIANCE  was  then  added 
to  convert  spectral  irradiance  into  specific  wavebands. 
After  completing  the  modifications  on  D.U.H.B.O. 
(Appendix  F),  the  program  enabled  the  computer  to  read 
in  the  SAO  visual  and  AFGD  IR  maps  and  make  to  data 
matches  to  insure  reliability  on  consistent  star  data. 
The  first  match  checked  to  positions  on  the  two  maps 
and  matched  each  star  within  a  .02  microns  error  band. 
Next,  these  stars  were  stored  in  a  file,  and  the  second 
check  was  performed.  This  checked  compared  visual 
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magnitude  to  assure  its  accuracy  within  two  magnitudes 
of  each  other.  Next,  from  the  spectral  type, 
temperature  was  determined  from  the  Holman  Heat 
Transfer  book  (Appendix  H). 

Then,  many  spectral  ir radiance  calculations  were 
performed.  First,  the  peak  spectral  irradiance  was 
computed: 

*  [lO 

ujHe’re, 

*  croriiOknce  <3"^ 

/lice'll -iocie  o  -f  isJc 

Next,  the  spectral  irradiance  was  estimated  at  the 
appropriate  wavelength  by  evaluating  the  blackbody 
curve  of  peak  spectral  irradiance: 

H  (a)  =  ^  )  y/(^  ^  "  O) 

where 


c 

X 


21.199 

14387.9 


Following  that,  the  spectral  irradiance  magnitude,  M' , 
had  to  be  solved  using; 


-i?-6  ^<53  (^) / 


where 


Hg  (4.2  ^m)  -  3.6x10’’* 

Watts/cm^  'jim 

Hg  (11.0  ^m)  «  8.7x10*’^ 

Watta/cm^  *jj,m 

Hg  (20.0  urn)  -  8.2x1 0’’® 

Watta/cm^ 

(27.0  ^m)  »  2.5x10*’® 

Watts/cm^  *;ini 

The  spectral  ir radiance  was  then  recalculated  by 
integrating  equation  (2): 


The  integral  equation  (5)  over  all  wavelengths  is  the 
blackbody  radiation  law: 

Ejj  .  1)  (5) 

where 

Cl  -  3.743x10®  Watti*Hm®/m2 
C2  «  14387.9  ^m*K 

Since  equations  (2)  and  (5)  are  similar  and  differ  only 
by  a  constant,  integration  of  equation  (4)  could  be 
done  by  multiplying  equation  (6)  by  this  constant. 
Introducing; 

£bO.X*  M 

9  -  Planok'c  oonetont,  6.989x10*^^  Wi^ta/wn**K^ 
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in) 


cfi'-i)  ^  xHe-,) 

where  the  left  -  handed  side  was  the  equality  in 
equation  (2)  multiplied  by  a  constant  2  equating  both 
sides.  After  cancelling  out  common  terms  on  both 
sides  of  equation  (7),  z  becomes: 


Z  -  [7.78x10’^  Hm-cm^-K*  /  Watts]  •  [H,^  /  T^I 

Since  and  T  remain  constant  with  respect  to 

wavelength,  2  was  carried  outside  the  integral. 
Equation  (4)  became: 

SB-Zi*  [C,/X’ •(«*-!)]  dX 

Finally,  the  spectral  irradiance  over  all  wavelengths 
is: 


SR-ZoT* 


For  final  evaluations,  a  short  program,  using  the 
subroutine  IRRADIANCE,  was  written  (Appendix  G). 

Each  of  the  former  programs  were  written  and  run 
on  the  Orion  KicroVAX  III. 

Resulting  from  S.A.S.S.E.  are  over  5  new  data 
files  which  are  necessary  for  specific  sensors  and/or 
further  astrophysical  studies  for  star  sensors. 

It  was  found  that  there  are  17,056  certain  stars  { 
by  defined  parameters)  that  can  be  determined  from  the 
SAO  and  AFGL  maps. 

The  brightest  500  stars  by  visual  magnitude  have 
been  addressed  and  recorded  alphabetically. 


9-10 


At  the  close  of  the  summer  of  1990  High  School 
Apprenticeship  Program,  two  key  projects  which  compose 
the  S.A.S.S.E.  effort  were  achieved.  Both  the 
Alpha/Beta  programs  (which  address  and  alphabetize  the 
brightest  stars)  and  D.U.H.B.O.  (which  matches  the  SAO 
and  AFGL  stars  and  computes  spectral  irradiance  in 
specific  wavebands)  were  successfully  completed. 

Further  studies  showed  that  the  most  effective 
star  sensor  would  be  one  between  lOE-15  and  lOE-16 
microns,  allowing  enough  stars  to  be  seen  for 
positional  sightings.  Also,  the  purpose  for  the  study 
has  been  altered  due  to  the  fact  that  the  star  sensor 
is  mw  strictly  passive;  therefore,  pattern  matching  is 
no  longer  plausible. 

Lastly,  two  short  studies  were  conducted  to 
evaluate  the  number  of  stars  which  can  be  viewed  under 
given  circumstances.  The  first  calculates  the  number 
of  stars  which  can  be  viewed  in  different  wavebands 
(Appendix  I).  The  second  evaluates  the  number  of  stars 
which  may  be  viewed  by  a  given  sensor  with  different 
spectral  N.E.F.D.  values  (Appendix  J).  In  other  words, 
it  calculates  the  number  of  stars  which  are  bright 
enough  to  see  in  a  certain  waveband. 


9-n 


The  High  School  Apprenticeship  Program  has  helped 
me  to  develop  many  diverse  skills  and  to  learn  much 
about  engineering  and  scientific  fields.  First  of  all, 
compiled  with  the  knowledge  of  last  summer,  I  became 
highly  proficient  in  FORTRAN  programming.  Also,  I 
learned  many  tasks  of  an  astronomer,  including  reading 
star  maps  and  identifying  stars  by  address. 

In  addition  to  the  astronomy,  1  had  the 
opportunity  to  learn  many  astrophysical  equation 
manipulations  along  with  the  theories  supporting  them. 

I  learned  how  to  convert  right  ascension  and 
declination  to  practicable  forms.  Also,  I  gained  a  new 
understanding  of  the  different  types  of  magnitude  and 
how  to  convert  one  to  another.  Next,  I  learned  to 
recognize  and  use  equations  which  are  utile  for 
spectral  irradiance  manipulations  and  calculations. 

Finally,  what  I  most  appreciated  about  this  summer 
opportunity  is  what  one  can  not  learn  from  books  or 
classes,  and  that's  the  experiences  and  wisdom  which 
was  imparted  to  me  from  my  mentor,  Tim  Poth,  and  others 
that  I  met.  I  talked  to  engineers  (Aero's  and  Astro's) 
along  with  physicists  (contractors  and  government)  and 
from  this  learned  of  the  differences  which  distinguish 
one  from  another.  Additionally,  I  found  out  about 
different  colleges,  different  places  and  companies  to 
work  at,  and  the  "do's"  and  "don't's"  of  the  college 
and  professional  fields.  Conclusively,  I  am  more 
confident  in  my  choices  for  college,  career,  and 
future,  reconfirming,  beyond  a  shadow  of  a  doubt,  that 
I  do  not  want  to  be  and  engineer  but  a  physicist. 
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noon  oooo  on 


PROGBAM  HAXMAG  530 

. THIS  PROGRAM  READS  IN  THE  REDUCED  SAO  MAP  AND  OUTPUTS  THE 

- TOP  500  STARS  BY  VISUAL  MAG 

DIMENSION  DATA(600,15) 

OPEN( 10, FILE- 'SAOMXNH. MAG' , STATUS- 'OLD' ) 
OPEN(20,FILE-'FIVC.DAT' ,STATOS-'NEW' ) 

WRITE(20,50) 

. THIS  READS  IN  THE  500  STARS  ALLOWING  FOR  THE  36  DOUPLICATES 

. AND  WRITES  THEM  TO  A  FILE''*'' 

DO  10  1-1,536 

READ  (10,100) (DATA{ I, J) ,J-1,15) 

WRITE  (20,200)1, (DATA( I, J) ,J-2, 15) 

10  CONTINUE 

50  FORMAT(2X, 'RANK' ,1X, '  NUM' , '  L',1X,'  RTASC',1X,'  SND',2X, 

+  '  DECL',3X,'  PM' ,2X, 'VM' , '  ST' , 2X, ' DV  VMA' 

+  '  PMA  CIl  CI2',5X,'  RA' ,10X, 'DEC' ) 

100  FORMAT(A5,A6,A1,F10.5,1X,A1,F10.5,1X,F4.1,1X,F4.1,1X,A3, 

+  2X,A1,2X,A1,3X,A1,5X,A3,3X,F10.8,1X,F11.8) 

200  FORMAT(I5,A6,A1,F10.5,1X,A1,F10.5,1X,F4.1,1X,F4.1,1X,A3, 

+  2X,A1,2X,A1,3X,A1,5X,A3,3X,F10.8,1X,F11.8) 

STOP 

END 
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PROGHAN  ALPHA 


C 

C  THIS  PROGRAM  PLACES  THE  TCP  500  STARS  IN  ALPHABETICAL  ORDER  BY 
C  CONSTELATION  AND  DECENDING  VISUAL  MAGNITUDE 
C 

C  THIS  PROGRAM  ALLOWS  THE  USER  TO  INPUT  OP  TO  EIGHTY  CONSTELLATIONS 
C  IN  ANY  ORDER  AND  CAUSES  THE  STARS  AND  THEIR  DATA  TO  BE  PLACED 
C  IN  THIS  ORDER 
C 

C  JUNE  5,1990 
C 

C  BY  NICKI  COOK 
C 

REAL  RTASC,DECL,VM 
INTEGER  N,RANK 

CHARACTER  CONST*18 , CONSTEL*18 , STAR*15 , SND*1 , SYM*1 ,NUM*6 

C 

OPEN  (UNIT-4, FILE-'ALPHA. DAT' ,STATUS-'OLD' ) 

OPEN  (ONIT-6, FILE- 'CONSTL. ABC' , STATUS- ' OLD ' ) 

OPEN  ( UNI T-8,F I LE-'BETA2. DAT ', STATUS- 'NEW' ) 

C 

C****inpUTTING  up  to  80  CONSTELLATION  NAMES** ’ * 

C 

DO  99,  M-1,80 

WRITE(*,*) 'CONSTELATION  NAME?' 

READ( *,10) CONST 
10  F0RMAT(A18) 

DO  88,  N-1,500 

C 

C****ALLOWS  STARS  FROM  THE  FILE  OF  TOP  200  STARS  TO  BE  READ**** 

C 

IF(N.LT.201)THEN 

READ (6,20) RANK , NUM , S YM , CONSTEL , STAR , VM , RTASC , SND , DECL 
ENDIF 
C 

20  FORMAT( I5,A6,2X,A1,2X,A18,1X,A15,F4.1,P1C.5,1X,A1,F10.5) 

C 

C****alLOWS  STARS  FROM  THE  FILE  OF  THE  TOP  STARS  BY  VM  (300-500) 
C****TO  BE  READ*** 

C 

IF(N.GT.200)THEN 

READ( 4,20) RANK , NUM , SYM , CONSTEL , STAR , VM , RTASC , SND , DECL 
ENDIF 

C 

C****THIS  CONDITIONAL  MATCHES  THE  CONSTELLATION  INPUTTED  WITH 
C****THE  STARS  IN  THE  DATA  FILES  FALLING  IN  THAT  CONSTELLATION**** 

C 

I F ( CONSTEL . EQ . CONST ) THEN 

C* *************************************************************** 

C 

C****WRITES  PERTINENT  INFORMATION  TO  A  FILE**** 

C 

WRITE (8,30)  SYM , CONST , STAR, VM , RTASC , SND , DECL , RANK , NUM 
30  FORMAT(2X,A1,2X,A18,1X,A15,F4.1,F10.5,1X,A1,F10.5,2X,I5,A6) 

ENDIF 

88  CONTINUE 

REWIND(4) 

REWIND(6) 

99  CONTINUE 
CLOSE  (4) 


CLOSE  (8) 

STOP 

END 
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n  n  n  n  n  oo  n  noonooon 


PROGBAH  BETA 


THIS  PROGRAM  PLACES  THE  500  BRIGHTEST  STARS  IN  THEIR  APPROPRIATE 
CONSTELLATION  AND  NAMES  THE  STAR  WHILE  GIVING  VISUAL  MAGNITUL'S, 
RIGHT  ASCENSIONS,  AND  DECLINATION. 

MAY  31,  1990 

BY  NlCKl  COOK 

REAL  PM,VM,RTASC,DECL,RA,DC 
INTEGER  RANK 
CHARACTER  PMA,DV,VMA,L 

CHARACTER  CONST*  1 8 , STAR*  1 5 , SND*  1  ,ST*3,CI12*3, S YM*  1 , CHK * 3 , N'JM* 6 

OPEN  {UNIT-2,  FILE-' SAOMXNH. MAG ' ,  STATUS- ' OLD ' ) 

OPEN  (UNIT-4,  FILE-'ALPHAZ.DAT' ,  STATUS- ' NEW ' ) 


WRITE  (4,*)  'RANK  NUM  SYM  CONSTELATION  STAR 

+  VM  RTASC  DEC' 


This  reads  pertinent  info  from  map  and  matches  it  with  star  and 
constelation  info. ******************************************** 


CO  99,N-1,501 

READ(2,10)RANK,NOM,L,RTASC,SND,L'ECL,PM,VM,ST,DV,VMA,PMA,CI12,RA 
10  FORMAT(I5,A6,A1,F10.5,1X,A1,F10.5,1X,F4.1,1X,F4.1,1X,A3,2X,A1,2X, 

+  A1,3X,A1,5X,A3,3X,F10.8,1X,F11.8) 

IP(RANK.LT.236)GO  TO  99 
WRITE (*,22) RANK 

22  FORMAT ('  PLEASE  TYPE  CONSTELLATION  NAME  FOR  STAR  #  ',15, 

4  ' ( 0  FOR  NONE ) ' ) 

READ(*,'(A)')CONST 
CALL  CHECK  (CONST) 

WBITE(*,*) 'SYMBOL  (0  FOR  NONE)' 

READ(*,'(A)')SYM 
CALL  CHECK  (SYM) 

WRITE (*,*) 'STAR  NAME  (0  FOR  NONE)' 

READ(*,'(A)' )STAR 
CALL  CHECK  (STAR) 


C  Writing  star  info  to  file******************************* 


WRI TE  (  4 , 4  0 )  N ,  NUN , YM ,  CONST ,  STAR ,  VM ,  RTASC ,  DECL 
40  FORHAT(I5,A6,2X,A1,2X,A18,1X,A15,F4.1,F10.5,1X,F10.5) 


99  CONTINUE 
C 

CLOSE(2) 

CLOSE(4) 
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END 


Checks  for  O'S  in 

in  order  to  print  blanks  in  file********** 


SUBROUTINE  CHECK  (CHK) 
END 
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RANK  NUM  SYM  CONSTELLATION 


STARNAME 


VM  RT  ASCEN 


DECLIN 


1 

1881 

A 

CANIS  MAJOR 

SIRIUS 

-1.6 

100.73631 

16.64621 

2 

4480 

A 

CANOPUS 

— 

-0.9 

95.71039 

- 

52.. 66763 

» 

2838 

A 

CENTAURUS 

0.1 

219.04689 

- 

60.63023 

4 

7174 

A 

LYRA 

VEGA 

0.1 

278.81107 

38.73602 

5 

0186 

A 

AURIGA 

CAPELLA 

0.2 

78.24777 

45.94946 

6 

0944 

A 

BOOTES 

ARCTURUS 

0.2 

213.34479 

19.44193 

7 

1907 

B 

ORION 

RIGEL 

0.3 

78.03329 

8.25796 

8 

5756 

A 

CANIS  MINOR 

PROCYON 

0.5 

114.17132 

5.35467 

9 

2481 

A 

ACHERNAR 

0.6 

23.96378 

- 

57.49026 

10 

3271 

A 

ORION 

BETELGEUSE 

0.6 

88.11587 

7.39942 

11 

2582 

B 

CENTAURUS 

0.9 

210.06879 

60.13280 

12 

5122 

A 

AQUILA 

ALTAIR 

0.9 

297.08578 

8.73492 

13 

4415 

A 

SCORPIUS 

ANTARES 

1.1 

246.58420 

- 

26.32277 

14 

4027 

A 

TAURUS 

ALDERBARON 

1.1 

68.26207 

15.41042 

15 

7923 

A 

VIRGO 

SPICA 

1.2 

200.63875 

- 

0.90093 

16 

9666 

B 

GEMINI 

POLLUX 

1.2 

115.56465 

73.14864 

17 

9941 

A 

CYGNUS 

OENEB 

1.3 

309.93143 

<5. 10086 

18 

1524 

A 

PI SCI S  AUSTRINUS 

FORMALHAUT 

1.3 

343.72305 

29.88772 

19 

6967 

A 

LEO 

REGULUS 

1.3 

151.42769 

12.21237 

20 

0259 

B 

SOUTHERN  CROSS 

1.5 

191.19598 

- 

59.41570 

21 

1904 

A 

SOUTHERN  CROSS 

1.6 

185.95027 

- 

62.82206 

22 

0198 

A 

GEMINI 

CASTOR 

1.6 

112.85272 

31 .99974 

23 

0019 

C 

CRUX 

1.6 

187.09470 

56.83342 

24 

2676 

E 

CANIS  MAJOR 

1.6 

104.16495 

- 

28.90284 

25 

8553 

A. 

URSA  MAJOR 

ALIOTH 

1.7 

192.95868 

56.23087 

26 

8954 

c 

SCORPIUS 

1.7 

262.55261 

- 

37.06934 

27 

5932 

E 

CARINA 

1.7 

125.37243 

- 

59.34805 

28 

2740 

C 

ORION 

BELLATRIX 

1.7 

80.61179 

6.3060.^ 

29 

0495 

B 

CARINA 

1.8 

138.16525 

- 

69.51101 

30 

2346 

0 

ORION 

MINTAKA 

1.8 

83.41865 

1.23231 

31 

7168 

B 

TAURUS 

NATH 

1.8 

80.78213 

28.56715 

32 

8787 

A 

PERSEUS 

MIRFAK 

1.9 

50.18517 

49.68501 

33 

4752 

N 

URSA  MAJOR 

BENETNASCH 

1.9 

206.39290 

49.56226 

34 

5912 

C 

GEMINI 

ALHENA 

1.9 

98.70582 

16.44372 

35 

3700 

A 

TRIANGULUMAUSTRALE 

1.9 

250.83775 

- 

6«. 93886 

36 

9504 

c 

VELA 

1.9 

121.99777 

• 

47.18342 

37 

1428 

B 

CANIS  MAJOR 

2.0 

95.12412 

- 

17.92978 

38 

3047 

D 

CANIS  MAJOR 

2.0 

106.58932 

- 

26.31260 

39 

2444 

E 

ORION 

ALNILAM 

2.0 

84.55851 

• 

1.96749 

40 

4129 

E 

CORONA  BOREALIS 

2.0 

239.35210 

26.06084 

41 

8201 

T 

SCORPIUS 

2.0 

263.43073 

- 

42.9681& 

42 

0091 

E 

SAGITTARIUS 

2 . 0 

275.21329 

- 

34.41026 

43 

9825 

0 

CETUS 

MIRA 

2.0 

34.20435 

- 

3.20372 

44 

6232 

0 

VELA 

2.0 

130.83076 

- 

54.52452 

45 

5384 

A 

URSA  MAJOR 

DU6HE 

2.0 

165.16487 

G2. 02133 

46 

6574 

A 

PAVO 

2.1 

305.42621 

- 

56.89723 

47 

308 

A 

URSA  MINOR 

POLARIS 

2.1 

27.20328 

89.02882 

48 

7448 

S 

SAGITTARIUS 

2.1 

283.04135 

26.36064 

49 

2932 

A 

OPHIUCHUS 

RAS  ALHAGUE 

2.1 

263.15289 

12.59498 

50 

0750 

B 

AURIGA 

COLURE 

2.1 

88.96491 

44.94464 

51 

3765 

A 

ANDROMEDA 

SIRRAH*** 

2.1 

1.44934 

28.81448 

52 

0878 

C 

VELA 

2.2 

136.53879 

— 

43.22989 

53 

6871 

A 

HYDRA 

ALPHARD 

2.2 

141.28246 

- 

8.44096 

54 

2542 

K 

ORION 

SAIPH 

2.2 

86.34589 

— 

9.68596 

55 

9809 

B 

LEO 

DENEBOLA 

2.2 

176.62752 

14.85161 

56 

8102 

B 

URSA  m;nor 

KOCHAB 

2.2 

222.70685 

74.35988 

57 

0992 

A 

GRUS 

2.2 

331.27286 

— 

47  20404 

56 

5151 

A 

ARIES 

HAMAL 

2.2 

31.08715 

23.22696 

59  7420 

60  1258 

61  9528 

62  5188 

63  3893 

64  7734 

65  6808 


B  CETUS 
B  GRUS 
C  CYGNU5 
T  CENTAURUS 
A  CORONA  BOREALIS 
C  ANDROMfDA 


66 

8752 

Z 

67 

3603 

c 

68 

0653 

c 

69 

1133 

B 

70 

8737 

Z 

71 

3651 

N 

72 

8078 

E 

73 

4471 

rt 

74 

5093 

A 

75 

7876 

B 

76 

7029 

E 

77 

9163 

K 

78 

1609 

A 

79 

8179 

C 

80 

2220 

D 

81 

4014 

D 

82 

1047 

E 

83 

1298 

C 

84 

0474 

E 

85 

9302 

A 

86 

1727 

D 

87 

5044 

N 

88 

8378 

A 

89 

0332 

K 

90 

6891 

H 

91 

0981 

B 

92 

3500 

E 

93 

0430 

B 

94 

0006 

Z 

95 

0547 

A 

96 

8636 

T 

97 

7795 

P 

98 

7600 

99 

5012 

B 

100 

4735 

U 

101 

6059 

A 

102 

0915 

B 

103 

4725 

B 

lOv 

2268 

D 

105 

1482 

C 

106 

2321 

H 

107 

0920 

A 

108 

5223 

C 

109 

5’35 

B 

110 

0  '6 

N 

111 

66  i 

D 

112 

4^1 

B 

113 

115 

A 

114 

7176 

C 

115 

8896 

L 

116 

2671 

B 

117 

1974 

A 

U8 

5193 

A 

DEKEBKAITOS 


GEMMA 

ALKAK 


ETAMIN 

MIZAR 


MIRACH 


KERAK 

ENIT 


SCHEDIR 

PHEODA 


ALGEIBA 


ALDERAMIN 

ZOSMA 


MARRAB 


SCHEAT 

IZAR 


ARNEB 


CHBRATAN 


MENKAB 

TARAZED 


UNULA 


2.2  10.27005  - 

2.2  339.92267  - 

2.3  305.10803 

2.3  210.93282  - 
2.3  233.14227 
2.3  30.20490 

2.3  136.93796  - 

2.3  120.45647  - 

2.4  189.68707  - 

2.4  268.86075 
2.4  1.62390 

2.4  200.47882 
2.4  110.52905  - 
2.4  251.73003  - 
2.4  16.73107 

2.4  5.95429  - 

2.4  164.70938 

2.5  325.43231 

2.5  264.75644  - 
2.5  9.41380 

2.5  177.80235 
2.5  82.36257  - 

2.5  239.34299  - 
2.  ..  204.17635  - 

2.6  154.30467 
2.6  311.04654 
2.6  319.34659 
2.6  167.86285  - 
2.6  218.08044  - 
2.6  345.56693 
2.6  256.87692  - 
2.6  140.14105  - 

2.6  345.33655 

2.7  220.70059 

2.7  228.57805  - 
2.7  238.60057  - 
2.7  82.63081  *■ 

2.7  89.07761 

2.7  108.84396  - 
2.7  284.85783  - 

2.7  27.968^8 

2.8  102.17368  - 

2.8  84.45921  - 

2.8  187.93892  - 
2.8  260.28442  - 
2.8  20.63124 

2.8  13.41802 

2.8  161.15341  - 
2.8  44.91560 

2.8  295.97046 
2.8  223.81161  - 
2.8  208.07570 
2.8  274.44815  - 
2.8  247.01711 
2.8  235.45062 
2.8  183.30768  ~ 

2.8  26? .84027  - 

2.9  265.25018 
2.9  188.544S6  ^ 
2.9  333.77371  - 


18.26077 
47.14672 
40.09571 
36.12490 
26.88188 
42.09084 
59.06491 
39.86134 
48.68537 
51.49404 
58.87410 
55.18596 
29.20446 
34.20432 
..a. 35604 
42.57737 
56.65087 
9.64491 
39.00632 
56.26350 
53.97277 
0.33456 
22.48094 
53.21287 
20.09524 
33.78199 
62.37326 
20.79796 
41.93938 
14.93585 
15.66469 
54.79647 
27.81124 
27.28407 
9.19970 
10.46745 
17.85672 
37.21112 
37.00664 
29.95355 
20.56447 
50.55430 
34.09935 
23.12045 
55.48503 
59.97621 
60.44650 
49.15546 
3.89476 
10.49011 
42.93391 
18.64760 
29.85130 
21.59727 
6.58165 
17.26440 
37.25793 
4.58662 
68.86023 
60.50973 


9-19 


119 

8840 

A 

LIBRA 

2.9 

222.02686 

- 

15.83516 

120 

9682 

B 

SCORPIOS 

AKRAB 

2.9 

240.63129 

- 

19.67012 

121 

6841 

L 

SAGITTARIUS 

2.9 

276.22107 

* 

25.45116 

122 

4481 

T 

SCORPIOS 

2.9 

248.19127 

— 

28.11404 

123 

8592 

B 

PERSEOS 

ALGOL 

2.9 

46.22648 

40.76457 

124 

5217 

P 

POPPIS 

2.9 

121.35342 

- 

24.15897 

125 

7522 

I 

AORIGA 

2.9 

73.43326 

33.08887 

126 

5670 

B 

HYDROS 

2.9 

5.78906 

- 

77.53569 

127 

3257 

A 

CANES  VENATICI 

COR  CAROL I 

2.9 

193.42282 

38.58801 

128 

6799 

Z 

PERSEOS 

2.9 

57.74566 

31.73682 

129 

7074 

N 

DRACO 

2.9 

245.82698 

61.62697 

130 

1794 

B 

ERIDANOS 

2.9 

76.34735 

5.14959 

131 

5128 

A 

LUPOS 

2.9 

219.64804 

— 

47.17481 

132 

2323 

I 

ORION 

2.9 

83.24636 

- 

5.94118 

133 

4371 

I 

CENTAOROS 

2.9 

199.44452 

- 

36.44913 

134 

1781 

C 

PEGASUS 

2.9 

2.66436 

14.90571 

135 

8917 

C 

VIRGO 

2.9 

189.78105 

- 

1.17544 

136 

9689 

c 

CENTAOROS 

2.9 

181.43936 

- 

50.44398 

137 

4203 

c 

BOOTES 

3.0 

217.51599 

38.52615 

138 

4461 

z 

AQOILA 

3.0 

285.77771 

13.78774 

139 

7756 

p 

SAGITTARIUS 

3.0 

286.69772 

* 

21.10486 

140 

8796 

D 

CYGNOS 

3.0 

295.85278 

45.00784 

141 

7067 

H 

VELA 

3.0 

142.42529 

— 

56.81322 

142 

5485 

Z 

L’ERCOLES 

3.0 

249.84995 

31.69226 

143 

5938 

Z 

LUPUS 

3.0 

232.94995 

- 

41.00027 

144 

0429 

B 

DRACO 

3.0 

262.32504 

52.33768 

145 

3346 

B 

TRIANGOLOMAOSTRALE 

3.0 

237.67908 

- 

63.27850 

146 

0457 

B 

LEPOS 

NIHAL 

3.0 

81.52538 

- 

20.79803 

147 

8474 

A 

HYDROS 

3.0 

29.29876 

- 

61.81262 

148 

1083 

T 

CARINA 

3.0 

160.29189 

- 

64.13205 

149 

8069 

A 

ARA 

3.0 

261.99313 

- 

49.83878 

150 

7336 

Z 

TAURUS 

3.0 

83.66360 

21.11389 

151 

4644 

D 

CAPRI CORNUS 

3.0 

326.07080 

- 

16.35512 

152 

0384 

E 

VIRGO 

VINDEHIATRIX 

3.0 

194.92171 

11.22747 

153 

3987 

r 

SCORPIOS 

3.0 

238.95541 

- 

25.97171 

154 

6199 

N 

PLEIADS 

ALCYONE 

3.0 

56.12677 

23.95210 

155 

6840 

E 

PERSEUS 

3.0 

58.62263 

39.86737 

156 

1052 

D 

OPHIUCROS 

3.0  242.93053  - 

■ 

3.56706 

157 

4336 

S 

SCORPIOS 

3.1 

244.53612 

- 

.25.47448 

158 

0734 

N 

ANDROMEDA 

3.1 

340.16360 

29.95928 

159 

9696 

C 

SAGITTARIUS 

3.1 

270.64865 

30.42661 

160 

4538 

Z 

CENTAOROS 

3.1 

208.10213 

- 

47.04302 

161 

3629 

w 

URSA  MAJOR 

3.1 

166.71494 

44.77017 

162 

3097 

c 

TRIANGULUHAUSTRALE 

3.1 

228.55244 

- 

68.49689 

163 

0695 

N 

CARINA 

3.1 

146.46320 

- 

64.83950 

164 

8220 

C 

URSA  MINOR 

3.1 

230.19728 

72.01193 

165 

2839 

S 

r;»NIS  MAJOR 

3.1 

105.23392 

- 

23.75902 

166 

5457 

B 

AwOARTUS 

3.1 

322.23187 

- 

5.79213 

167 

8549 

S 

POPPIS 

3.1 

108.00286 

- 

44.55733 

168 

2630 

I 

URSA  MAJOR 

3.1 

133.94844 

48.23946 

169 

5306 

B 

TRIANGULUM 

3.1 

31.63991 

34.75181 

170 

3789 

C 

PERSEUS 

3.1 

45.28998 

53.31230 

171 

1004 

E 

LEO 

3.1 

145.75415 

24.00545 

172 

9053 

D 

PERSEUS 

3.1 

54.83850 

47.62954 

173 

8420 

I 

SCORPIOS 

3.1 

266.02124 

- 

40.10971 

174 

7323 

D 

CORVUS 

ALGORAB 

3.1 

186.81825 

— 

16.23726 

175 

6698 

Z 

CANIS  MAJOR 

3.1 

94.59811 

— 

30.03996 

176 

4315 

Z 

ARA 

3.1 

253.61842 

55.91351 

177 

5456 

B 

CANIS  MINOR 

3.1 

111.10982 

8.39164 

178 

9791 

E 

SOUTHERN  CROSS 

3.1 

183.11917 

- 

58.47078 

9-20 


J-'3  OiU<S  M 

180  8222  D 

181  4951  0 

182  3374  C 

183  6029  C 

184  3310  M 

185  0300  A 

186  0531  E 

187  6240  B 

188  8682  E 

189  5862  A 

190  8071  V 

191  7301  B 

192  9283  C 

193  8297  M 

194  7365  2 

195  9957  N 

196  7289  T 

197  9318  G 

198  0057  B 

199  1414  A 

200  0237  M 


SCORPIUS 

DRACO 

HERCULES 

GRUS 

HYDRUS 

URSA  MAJOR 

INDUS 

CORVUS 

COLUMBA 

GEMINI 

AQUARIUS 

POPP IS 

CYGNUS 

eridanus 

GEMINI 

DRACO 

SAGITTARIUS 

URSA  MAJOR 

SCORPIUS 

CEPHEUS 

LYNX 

LEPUS 


MEBSUTA 


ALBIREO 


OWL  NEBULA 


3.1  252.11949  - 

3.2  288.13678 

3.2  258.24399 
3.2  327.72687  - 
3.2  56.99777  - 

3.2  154.83945 
3.2  308.51471  - 
3.2  181.88716  - 
3.2  87.29887  - 

3.2  100.21401 
3.2  330.80396  - 
3.2  99.05748  - 
3.2  292.17593 
3.2  58.92363  - 

3.2  94.98373 

3.2  257,15894 

3.2  273.56073  - 

3.3  142.38121 

3.3  266.61322  — 
3.3  322.00552 
3.3  139.50360 
3.3  77.67089  - 


37.96359 

67.57362 

24.89688 

37.60099 

74.39265 

41.75174 

47.46748 

22.34170 

35.78604 

25.18248 

0.56350 

43.15114 

27.85346 

13.64949 

22.54111 

65.77612 

36,77875 

51.90644 

37.02934 

70.34107 

34,60516 

16.26332 
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RANK 

NUM 

SYM 

CONSTELLATION 

STAR  NAME 

VM 

RT  ASCEN 

DECLIN 

201 

7239 

R 

SAGITTARUS 

0 

3.3 

280.63318 

27.04402 

202 

1543 

C 

HYDRA 

0 

3.3 

199.04945 

22.90830 

203 

8755 

S 

PUPPIS 

0 

3.3 

111.91090 

43.19929 

204 

9647 

A 

PICTOR 

0 

3.3 

101.91969 

61.88733 

205 

7663 

C 

LYRA 

0 

3.3 

284.26788 

32.61979 

206 

3481 

B 

CAPRI CORNUS 

0 

3.3 

304.55084 

14.94071 

207 

2106 

P 

ORION 

0 

3.3 

71.78079 

6.87563 

208 

4471 

M 

CENTAURUS 

0 

3.3 

206.64857 

42.22546 

209 

2019 

B 

HUSCA 

0 

3.3 

190.79788 

67.83477 

210 

0026 

V 

AURIGA 

0 

3.3 

75.75089 

41.16899 

211 

7264 

Z 

HYDRA 

0 

3.3 

133.18788 

6.13701 

212 

6256 

V 

HYDRA 

0 

3.3 

161.78888 

15.93151 

213 

1086 

E 

OPHIUCHUS 

0 

3.3 

243.91812 

4.57210 

214 

1472 

L 

CENTAURUS 

0 

3.3 

173.36595 

62.74294 

215 

0051 

E 

LEPUS 

0 

3.3 

75.83568 

22.43690 

216 

6074 

T 

CANIS  MAJOR 

0 

3.4 

100.62069 

12.95120 

217 

0905 

Q 

CARINA 

0 

3.4 

153.85242 

61.08197 

218 

5890 

P 

HERCULES 

0 

3.4 

258.32590 

36.86440 

219 

5344 

B 

LUPUS 

0 

3.4 

223.97462 

41.90491 

220 

2031 

E 

CASSIOPEIA 

0 

3.4 

27.69324 

63.42497 

221 

9512 

D 

CRATER 

0 

3.4 

167.90443 

15.70316 

222 

2853 

A 

CIRCINUS 

0 

3.4 

219.60991 

64.75900 

223 

2241 

V 

SERPENS  CAUDA 

0 

3.4 

274.68027 

2.91339 

224 

5691 

E 

LUPUS 

0 

3.4 

229.52022 

40.46803 

225 

5320 

T 

OPHIUCHUS 

0 

3.4 

259.73398 

24.95144 

226 

5365 

B 

PHOENIX 

0 

3.4 

15.96399 

46.98605 

227 

1070 

Z 

CYGNUS 

0 

3.4 

317.70148 

30.02098 

228 

2071 

N 

ORION 

0 

3.4 

8C. 49032 

2.44155 

229 

4150 

T 

AQUILA 

0 

3.4 

302.18121 

0.97113 

230 

3139 

S 

LIBRA 

0 

3.4 

225.28436 

25.08674 

231 

9420 

Z 

VIRGO 

0 

3.4 

203.03564 

0.34098 

232 

7683 

u 

SAGITTARUS 

0 

3.4 

285.95483 

27.74532 

233 

5516 

c 

PHOENIX 

0 

3.4 

21.54907 

43.57387 

234 

8969 

A 

RECTI CULUN 

0 

3.4 

63.44393 

62.59862 

235 

7707 

N 

SCORPIUS 

0 

3.4 

257.14172 

43.17531 

236 

1962 

H 

OPHIUCHUS 

0 

3.4 

253.82483 

9.45134 

237 

0818 

C 

CEPHEUS 

0 

3.4 

354.31888 

77.35326 

238 

4603 

0 

AQUILA 

0 

3.4 

290.74414 

3.01361 

239 

8315 

D 

URSA  MAJOR 

0 

3.4 

183.23993 

57.31026 

240 

6113 

T 

ERIDANUS 

0 

3.4 

44.09118 

40.50421 

241 

5375 

L 

AQUARIUS 

0 

3.5 

342.99960 

16.08720 

242 

4469 

n 

CENTAURUS 

0 

3.5 

206.62390 

41.43933 

243 

3268 

L 

URSA  MAJOR 

0 

3.5 

153.52231 

43.16488 

244 

9294 

0 

GEMINI 

0 

3.5 

109.28444 

22.07613 

245 

5397 

M 

HERCULES 

0 

3.5 

266.12500 

27.74872 

246 

2680 

U 

OPHIUCHUS 

0 

3.5 

258.09146 

14.44593 

247 

3021 

L 

AQUILA 

0 

3.5 

285.89871 

4.95909 

248 

9955 

E 

AURIGA 

0 

3.5 

74.59387 

43.75149 

249 

4058 

D 

ANDROMEDA 

0 

3.5 

9.16191 

30.58772 

250 

2004 

V 

SERPENS  CAUDA 

0 

3.5 

269.06805 

9.76919 

251 

4573 

0 

URSA  MAJOR 

0 

3.5 

126.53180 

60.88738 

252 

2304 

A 

LUPUS 

0 

3.5 

227.16983 

51.91050 

253 

1695 

S 

LIBRA 

0 

3.5 

201.74367 

23.02348 

254 

4726 

C 

HYDRA 

0 

3.5 

260.29471 

56.33301 

255 

4589 

D 

BOOTES 

0 

3.5 

228.37132 

33.50033 

256 

9520 

I 

DRACO 

0 

3.5 

230.95309 

59.14060 

257 

7112 

E 

HYDRA 

0 

3.5 

131.03232 

6.60345 

258 

2244 

P 

HYDRA 

0 

3.5 

210.87935 

26.44236 

I 


n 


I 


i 
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259  4601  F  POFPIS  0 

260  3564  A  DORADO  0 

261  4996  A  TEZANGUDUM  0 

262  7986  U  CETUS  0 

263  8103  2  PEGASUS  0 

264  5504  N  HERCULES  0 

265  9570  T  GEMIMI  0 

266  1265  2  LEO  0 

267  0885  J  CARINA  0 

268  7504  F  SAGITTARIUS  0 

269  6273  A  DRACO  0 

270  6552  R  LUPUS  0 

271  1006  G  CARINA  0 

272  4733  D  PAVO  0 

273  4902  U  ERIDANUS  0 

274  0787  M  OPHIUCHUS  0 

275  8955  N  LEO  0 

276  3954  E  TAURUS  0 

277  8116  M  SCORPIOS  0 

278  4020  N  PAVO  0 

279  1862  E  SOUTHERN  CROSS  0 

280  3957  T  TAURUS  0 

281  0228  B  POLARIS  VOLAN  0 

282  7000  D  MUSCA  0 

283  7632  N  CETUS  0 

284  5337  B  BOOTES  0 

285  0707  C  CETUS  0 

286  0700  F  SERPENS  CAUDA  0 

287  2609  0  ANDROMEDA  0 

288  5635  H  CARINA  0 

289  4137  Z  CEPHBUS  0 

290  4862  B  PAVO  0 

291  1234  H  VELA  0 

292  9019  N  CEPHEUS  0 

293  1732  N  CASSIOPEIA  0 

294  6693  I  VELA  0 

295  6746  C  GEMINI  0 

296  7208  N  NORMA  0 

297  2484  N  PISCES  0 

298  5712  E  LUPUS  0 

299  2797  S  CANIS  MAJOR  0 

300  7593  E  GRUS  0 

301  6316  B  DBLPHINUS  0 

302  7340  T  PEGASUS  0 

303  0801  Z  LEPUS  0 

304  3142  0  OPHIUCHUS  0 

305  8135  N  GEMINI  0 

306  1566  Z  CASSIOPEIA  0 

307  2558  F  HYDRA  0 

308  0803  0  VELA  0 

309  0686  D  ERIDANUS  0 

310  0816  B  PEGASUS  SCHBAT 

311  2573  H  ERIDANUS  0 

312  6138  Y  PERSEUS  0 

313  0268  I  CEPHEUS  0 

314  9653  H  GEMINI  0 

315  6784  B  INDUS  0 

316  2486  V  URSA  MAJOR  0 

317  1952  U  ORICHI  0 

318  9546  A  PYXIS  0 


3.5  116.79758 

3.5  68.22832 

3.6  27.55600 

3.6  25.43608 

3.6  339.74164 
3.6  250.29491 
3.6  102.37363 
3.6  153.47816 
3.6  153.13770 
3.6  283.68680 
3.6  210.75818 
3.6  229.65630 
3.6  157.56036 
3.6  300.96021 
3.6  64.00015 

3.6  236.75186 
3.6  151.1S222 
3.6  66.42327 

3.6  252.23582 
3.6  265.20517 
3.6  184.66174 
3.6  66.45092 

3.6  126.29981 
3.6  194.69989 
3.6  16.51842 

3.6  225.01527 
3.6  40.17665 

3.6  263.68030 
3.6  344.90363 
3.6  118.87678 
3.6  332.27890 
3.6  310.11942 
3.6  142.18205 
3.6  311.06870 
3.6  11.51519 

3.6  137.41263 
3.6  108.80499 

3.6  239.20010 

3.7  22.20082 

3.7  229.81880 
3.7  104.93159 
3.7  341.38629 
3.7  308.80087 
3.7  331.91916 
3.7  86.17207 

3.7  271.24438 
3.7  92.96461 

3.7  8.54305 

3.7  172.63443 
3.7  135.60709 
3.7  55.21265 

3.7  341.89664 
3.7  28.50343 

3.7  45.49081 

3.7  341.97336 
3.7  115.35773 
3.7  312.72949 
3.7  168.94562 
3.7  78.79417 

3.7  130.39537 


24.73312 
55.14772 
29.33615 
16.20014 
10.56983 
39.01633 
34.02349 
23.66721 
69.78926 
21.17413 
64.61433 
36.08144 
61.42769 
66.31207 
33.91935 
3.27860 
17.00727 
19.07121 
37.93422 
64.70274 
60.12502 
15.76161 
65.96972 
71.27978 
10.44683 
40.58689 
3.02612 
15.3688^ 
42.05698 
52.84743 
57.95431 
66.38483 
40.24702 
61.64413 
57.55087 
58.76159 
16.63226 
38.25555 
15.08872 
44.51117 
27.86203 
51.58035 
14.42009 
5.95115 
14.83922 
9.55526 
22.52316 
53.62206 
31.58074 
46.89792 
9.93140 
24.33714 
51.85715 
38.64802 
65.93716 
24  51958 
58.64450 
33.36737 
6.89696 
33.00518 
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319 

3831 

B 

CORONA  BOREALIS 

0 

3.7 

231.44144 

29.27702 

320 

7522 

R 

VELA 

0 

3.7 

148.77603 

54.32913 

321 

2661 

H 

URSA  NAJOR 

0 

3.7 

135.05528 

47.35577 

322 

5596 

0 

0 

0 

3.7 

41.75848 

27.05571 

323 

9087 

H 

DRACO 

0 

3.7 

275.48950 

72.71171 

324 

6164 

0 

VELA 

0 

3.7 

129.71515 

52.74364 

325 

1775 

B 

SERPENS  CAPUT 

0 

3.7 

235.96945 

15.57706 

326 

2754 

C 

OPHIUCKUS 

0 

3.7 

266.34592 

2.72452 

327 

9674 

D 

VIRGO 

0 

3.7 

193.27078 

3.66878 

328 

8398 

0 

0 

0 

3.7 

115.86803 

37.84625 

329 

4168 

N 

ARA 

0 

3.7 

251.36418 

58.95455 

330 

5500 

C 

SAGITTA 

0 

3.7 

299.13309 

19.35513 

331 

7948 

V 

OCTANS 

0 

3.7 

323.99945 

77.61395 

332 

2921 

R 

ORION 

0 

3.7 

83.09547 

9.90232 

333 

8877 

B 

RECTI CULUM 

0 

3.8 

55.89151 

64.96394 

334 

4810 

E 

AQUARIUS 

0 

3.8 

311.24258 

9.68006 

335 

3649 

0 

0 

0 

3.8 

233.89471 

29.61488 

336 

1683 

0 

0 

0 

3.8 

346.69574 

21.44415 

337 

6872 

I 

HERCULES 

0 

3.8 

264.51276 

46.03202 

338 

9274 

T 

CETUS 

0 

3.8 

20.38068 

8.44088 

339 

6710 

A 

CAELUM 

0 

3.8 

63.08580 

42.41676 

340 

1575 

L 

MUSCA 

0 

3.8 

175.80843 

66.45140 

341 

8694 

I 

CETUS 

0 

3.8 

4.21993 

9.10096 

342 

3427 

A 

CAPRI CORNUS 

0 

3.8 

303.82031 

12.70125 

343 

0648 

0 

0 

0 

3.8 

220.92952 

2.10249 

344 

0759 

D 

LEPUS 

0 

3.8 

85.59439 

22.46342 

345 

9082 

A 

PUPPIS 

0 

3.8 

117.62428 

40.44591 

346 

5590 

F 

HERCULES 

0 

3.8 

268.95505 

29.25204 

347 

9311 

B 

DORADO 

0 

3.8 

83,29721 

62.52228 

348 

2107 

0 

0 

0 

3.8 

244.92807 

19.26925 

349 

1195 

E 

ERIDANUS 

0 

3.8 

51.11387 

9.55977 

350 

7402 

Z 

SCORPIUS 

0 

3.8 

252.76477 

42.27774 

351 

6228 

0 

0 

0 

3.8 

56.54596 

23.90213 

352 

4908 

0 

0 

0 

3.8 

141.90236 

63.28197 

353 

4202 

0 

0 

0 

3.8 

217.41852 

30.59004 

354 

7527 

T 

HYDRA 

0 

3.8 

137.94090 

2.52629 

355 

9023 

A 

TELESCOPIUM 

0 

3.8 

275.81656 

45.99809 

356 

3619 

V 

LUPUS 

0 

3.8 

233.49568 

27.97094 

357 

1121 

F 

MICROSCOPIUM 

0 

3.8 

318.19815 

37.83119 

358 

5259 

D 

SAGITTA 

0 

3.8 

296.28928 

18.40964 

359 

1218 

E 

SERPENS  CAPUT 

0 

3.8 

237.08018 

4.62690 

360 

2142 

M 

ERIDANUS 

0 

3.8 

72.13509 

5.52121 

361 

5750 

0 

0 

0 

3.8 

271.39758 

28.75439 

362 

6569 

B 

CANCER 

0 

3.8 

123.45117 

9.34104 

363 

1299 

C 

LEO 

0 

3.8 

154.30583 

20.09436 

364 

2696 

R 

ERIDANUS 

0 

3.8 

33.68092 

51.74303 

365 

0957 

N 

LEPUS 

0 

3.8 

88.53147 

14.17546 

366 

4560 

C 

CAPRI CORNUS 

0 

3.8 

324.33072 

16.88918 

367 

7258 

H 

CANIS  MAJOR 

0 

3.8 

101.99301 

32.44963 

368 

6362 

L 

AQUARIUS 

0 

3.8 

342.50156 

7.84615 

369 

5785 

L 

HYDRA 

0 

3.8 

152.03728 

12.10626 

370 

0'564 

E 

ERIDANUS 

0 

3.8 

52.64315 

9.62632 

371 

3282 

0 

0 

0 

3.8 

108.19538 

26.68472 

372 

3945 

D 

ARA 

0 

3.8 

261.64471 

60.64470 

373 

1391 

0 

LYNX 

0 

3.8 

138.93477 

37.01543 

374 

1172 

0 

TAURUS 

0 

3.8 

50.52967 

8.85424 

375 

7193 

A 

APUS 

0 

3.8 

220.38747 

78.83490 

376 

2406 

S 

ORION 

0 

3.8 

84.05853 

2.62736 

377 

6605 

0 

0 

0 

3.8 

169.20955 

14.50768 

378 

9076 

B 

VIRGO 

0 

3.8 

177.02245 

2.04656 
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379 

8709 

0 

LEO 

0 

3.8 

144.62086 

10.12073 

380 

7375 

0 

0 

0 

3.8 

23.72765 

48.37574 

381 

6131 

0 

0 

0 

3.8 

55.47523 

23.95773 

382 

5092 

0 

0 

0 

3.9 

5.93711 

43.95713 

383 

5502 

D 

AURIGA 

0 

3.9 

88.85216 

54.28337 

384 

4281 

M 

ANDROMEDA 

0 

3.9 

13.49233 

38.22861 

385 

0424 

P 

CYGNUS 

0 

3.9 

315.77747 

43.72759 

386 

1658 

L 

SERPENS  CAPUT 

0 

3.9 

247.09726 

2.09196 

387 

8355 

y 

LEO 

0 

3.9 

157.54485 

9.56451 

388 

8574 

0 

0 

0 

3.9 

162.86415 

58.58729 

389 

4983 

E 

PHOENIX 

0 

3.9 

1.71990 

46.02325 

390 

6003 

0 

0 

0 

3.9 

275.39142 

21.74566 

391 

2484 

V 

URSA  MAJOR 

0 

3.9 

168.87984 

31.81080 

392 

7593 

H 

DRACO 

0 

3.9 

187.83980 

70.06361 

393 

8085 

C 

PISCES 

0 

3.9 

348.64304 

3.00879 

394 

7407 

C 

APUS 

0 

3.9 

246.42825 

78.78897 

395 

0926 

D 

LEPUS 

0 

3.9 

87.29247 

20.88201 

396 

6357 

A 

DELPHINUS 

0 

3.9 

309.32864 

15.73453 

397 

7643 

0 

0 

0 

3.9 

285.42184 

21.81653 

398 

1579 

0 

ERIDANUS 

0 

3.9 

60.12327 

5.85208 

399 

1826 

C 

SERPENS  CAPUT 

0 

3.9 

238.53523 

15.82355 

400 

5235 

B 

AQUILA 

0 

3.9 

298.21411 

6.28051 

401 

1702 

I 

CYGNUS 

0 

3.9 

292.11115 

51.62249 

402 

5716 

E 

HERCULES 

0 

3.9 

254.59363 

30.99887 

403 

7451 

B 

LYRA 

0 

3.9 

282.05807 

33.30347 

404 

9078 

0 

ERIDANUS 

0 

3.9 

55.44700 

42.42240 

405 

4542 

A 

LACERTA 

0 

3.9 

337.30649 

50.02499 

406 

3886 

H 

URSA  MAJOR 

0 

3.9 

175.85429 

48.05671 

407 

0631 

F 

DRACO 

0 

3.9 

266.16541 

56.87991 

408 

8059 

Z 

CETUS 

0 

3.9 

27.24770 

10.58136 

409 

7401 

V 

URSA  MAJOR 

0 

3.9 

146.86293 

59.27509 

410 

6374 

c 

POLARIS  VOLAN 

0 

3.9 

107.29501 

70.41798 

411 

3868 

c 

TAURUS 

0 

3.9 

64.23605 

15.50851 

412 

1145 

z 

BOOTES 

0 

3.9 

219.68974 

13.94180 

413 

9031 

z 

GEMINI 

0 

3.9 

105.28594 

20.64540 

414 

0341 

z 

CAPRICORNUS 

0 

3.9 

320.95392 

22.62898 

415 

3958 

D 

CORONA  BOREALIS 

0 

3.9 

235.16026 

26.45288 

416 

6438 

Z 

POLARIS  VOLAN 

0 

3.9 

115.61243 

72.48630 

417 

9374 

I 

GEMINI 

0 

3.9 

110.65573 

27.89921 

418 

5242 

T 

TELESCOPIUM 

0 

3.9 

270.68430 

50.09709 

419 

2297 

C 

LEO  MINOR 

0 

3.9 

162.63013 

34.48489 

420 

2197 

P 

ORION 

0 

3.9 

72.91109 

2.36034 

421 

6028 

u 

HERCULES 

0 

3.9 

244.55878 

46.43156 

422 

6673 

0 

0 

0 

3.9 

55.29416 

32.13152 

423 

5148 

V 

ERIDANUS 

0 

3.9 

68.40131 

30.66360 

424 

9966 

z 

AURIGA 

0 

3.9 

74.74450 

41.00494 

425 

4134 

B 

PICTOR 

0 

3.9 

86.52473 

51.08382 

426 

3897 

D 

TAURUS 

0 

3.9 

65.01185 

17.42689 

427 

5924 

E 

COLUMBA 

0 

3.9 

82.35902 

35.50611 

428 

0665 

C 

CETUS 

0 

4.0 

39.22910 

0.11389 

429 

6856 

P 

PERSEUS 

0 

4.0 

58.92844 

35.64903 

430 

6485 

T 

HERCULES 

0 

4.0 

268.63409 

37.25602 

431 

0274 

0 

0 

0 

4.0 

313.82675 

40.97385 

432 

6044 

C 

AQUARIUS 

0 

4.0 

334.76840 

1.63994 

433 

3719 

L 

TAURUS 

0 

4.0 

59.47657 

12.35059 

434 

5536 

D 

PHOENIX 

0 

4.0 

22.29303 

49.33200 

435 

8721 

N 

VIRGO 

0 

4.0 

184.33650 

0.38907 

436 

6735 

H 

COLUMBA 

0 

4.0 

95.07116 

33.41002 

437 

4545 

0 

0 

0 

4.0 

202.03387 

39.14977 

438 

9116 

N 

CYGNUS 

0 

4.0 

298.60718 

34.94951 
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439  8751  0  0 

440  0374  0  0 

441  3204  L  ANDHOMEDA 

442  2512  0  0 

443  9809  D  POLARIS  VOLAN 

444  8738  0  0 

445  4577  M  CENTAURUS 

446  6230  E  DELPHlNUS 

447  3957  0  SCORPIOS 

448  8513  J  PISCES 

449  9^81  0  0 

450  8609  0  0 

451  3955  C  TAURUS 

452  3693  M  CEPHEUS 

453  3560  0  0 

454  5896  0  MONOCEROS 

455  9336  0  0 

456  0090  M  VIRGO 

457  3013  0  OPHIUCHUS 

458  5426  P  LUPUS 

459  9587  I  LEO 

460  9540  E  DRACO 

461  0197  0  0 


462 

6497 

M 

SAGITTARIUS 

463 

7650 

N 

COLUHBA 

464 

8460 

0 

0 

465 

0614 

0 

0 

466 

9490 

B 

PYXIS 

467 

8373 

A 

FORNAX 

468 

1537 

0 

0 

469 

0238 

I 

PEGASUS 

470 

6955 

C 

MUSCA 

471 

3655 

N 

PERSEUS 

472 

9337 

0 

0 

473 

63  55 

0 

PLEIADS 

474 

8813 

0 

CENTAURUS 

475 

5159 

N 

AQUILA 

476 

4508 

D 

CEPHEUS 

477 

1154 

D 

6RUS 

478 

3474 

D 

CIRCINUS 

479 

9370 

S 

LEO 

480 

8804 

C 

LIBRA 

481 

0990 

B 

CORONA  AUSTRALIS 

482 

0422 

0 

VELA 

483 

5871 

0 

0 

484 

2303 

C 

CANIS  MAJOR 

485 

0775 

L 

PEGASUS 

486 

5980 

0 

0 

487 

1895 

N 

VELA 

488 

6181 

N 

AQUARIUS 

489 

5427 

C 

TRIANGULUM 

490 

0204 

0 

0 

491 

2199 

M 

VELA 

492 

3107 

0 

0 

493 

5525 

0 

LUPUS 

494 

9226 

0 

0 

495 

9047 

0 

TELESCOPIUM 

496 

2931 

0 

0 

497 

4330 

D 

MONOCEROS 

498 

5532 

L 

MUSCA 

4.0  200.80615 

55.24805 

4.0  133.47884 

60.45307 

4.0  353.77716 

46.18717 

4.0  289.69333 

17.94296 

4.0  109.21525 

67.86577 

4.0  200.48253 

55.18140 

4.0  208.80533 

41.857;8 

4.0  307.70584 

11.1321ii 

4.0  238.44795 

29.06956 

4.0  359.18539 

6.58650 

4.0  68.97215 

14.40044 

4.0  46.52815 

44.66950 

4.0  66.42867 

15.85282 

4.0  325.49374 

58.55018 

4.0  188.73936 

48.2t619 

4.0  125.79049 

3.74207 

4.0  61.25546 

47.58105 

4.0  220.10535 

5.44192 

4.0  269.53479 

2.93239 

4.0  225.42570 

46.85689 

4.0  170.32971 

10.80488 

4.0  297.08777 

70.14071 

4.0  43.49563 

9.09608 

4.0  272.69302 

21.07374 

4.0  89.40369 

42.81705 

4.0  49.32280 

21.93878 

4.0  142.74670 

62.56697 

4.0  129.53603 

35.12983 

4.0  47.48646 

29.18317 

4.0  288.98660 

53.27552 

4.0  331.17014 

25.10020 

4.0  187.36331 

71.85699 

4.0  41.75806 

55.68956 

4.0  303.01392 

46.58886 

4.0  55.71148 

24.21306 

4.0  166.61153 

58.70384 

4.0  297.48135 

0.87590 

4.0  336.82721 

58.15882 

4.0  336.57227 

43.75178 

4.0  242.71715 

63.56031 

4.0  233.18114 

14.62420 

4.1  169.63954 

6.30363 

4.1  286.51810 

37.98430 

4.1  131.08286 

45.85787 

4.1  220.14766 

34.95961 

4.1  105.37380 

15.55800 

4.1  341.02988 

23.30206 

4.1  155.91756 

16.58043 

4.1  153.15833 

41.87367 

4.1  338.19669 

0.37577 

4.1  33.58338 

33.61707 

4.1  128.97112 

42.81330 

4.1  158.79874 

47.96547 

4.1  270.73169 

2.50962 

4.1  227.11153 

48.54920 

4.1  119.20044 

49.10846 

4.1  276.24512 

49.10016 

4.1  284.75247 

5.81101 

4.1  107.32758 

0.40845 

4.1  172.11478 

69.60725 

9*26 


499  4560  0  0 

500  9137.  0  0 


0  4.1  29.77980 

0  4.1  215.87338 


72.18079 

52.08120 
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YM  CONSTELLATION 


STAR  NAME 


VM  RT  ASCEN 


DECLIN 


RANK  NUN 


A  ACHERNAR  0.6  23.96378  -  57.49026  9  2481 

A  ANDROMEDA  SIRRAH***  2.1  1.44934  28.81448  51  3765 

C  ANDROMEDA  ALMAK  2.3  30.20490  42.09084  64  7734 

B  ANDROMEDA  MIRACH  2.4  16.73107  35.35604  73  4471 

N  ANDROMEDA  3.1  340.16360  29.95928  158  0734 

D  ANDROMEDA  3.5  9.16191  30.58772  249  4058 

0  ANDROMEDA  3.6  344.9036?  42.05698  287  2609 

M  ANDROMEDA  3.9  13.49233  38.22861  384  4281 

L  ANDROMEDA  4.0  353.77716  46.18717  441  3204 

A  APUS  3.8  220.38747  -  78.83490  375  7193 

C  APUS  3.9  246.42825  -  78.78897  394  7407 

B  AQUARIUS  3.1  322.23187  -  5.79213  166  5457 

A  AQUARIUS  3.2  330.80396  -  0.56350  189  5862 

L  AQUARIUS  3.5  342.99960  -  16.08720  241  5375 

E  AQUARIUS  3.8  311.24258  -  9.68006  334  4810 

L  AQUARIUS  3.8  342.50156  -  7.84615  368  6362 

C  AQUARIUS  4.0  334.76840  -  1.63994  432  6044 

N  AQUARIUS  4.1  338.19669  -  0.37577  488  6181 

A  AQUILA  ALTAIR  0.9  297.08578  8.73492  12  5122 

C  AQUILA  TARAZED  2.8  295.97046  10.49011  108  5223 

Z  AQUILA  3.0  285.77771  13.78774  138  4461 

T  AQUILA  3.4  302.18121  0.97113  229  4150 

D  AQUILA  3.4  290.74414  3.01361  233  4603 

L  AQUILA  3.5  285.89871  4.95909  247  3021 

B  AQUILA  3.9  298.21411  6.28051  400  5235 

N  AQUILA  4.0  297.48135  0.87590  475  5159 

B  ARA  2.8  260.28442  -  55.48503  103  4725 

A  ARA  3.0  261.99313  -  49.83878  149  8069 

Z  ARA  3.1  253.61842  -  55.91351  176  4315 

N  ARA  3.7  251.36418  -  58.95455  329  4168 

D  ARA  3.8  261.64471  -  60.64470  372  3945 

A  ARIES  HAMAL  2.2  31.08715  23.22696  58  5151 

B  ARIES  CHERATAN  2.7  27.96808  20.56447  99  5012 

A  AURIGA  CAPELLA  0.2  78.24777  45.94946  5  0186 

B  AURIGA  COLURE  2.1  88.96491  44.94464  50  0750 

T  AURIGA  2.7  89.07761  37.21112  96  8636 

I  AURIGA  2.9  73.43326  33.08887  125  7522 

V  AURIGA  3.3  75.75089  41.16899  210  0026 

E  AURIGA  3.5  74.59387  43.75149  248  9955 

D  AURIGA  3.9  88.85216  54.28337  383  5502 

Z  AURIGA  3.9  74.74450  41.00494  424  9966 

A  BOOTES  ARCTURUS  0.2  213.34479  19.44193  6  0944 

E  BOOTES  IZAR  2.7  220.70058  27.28407  92  3500 

N  BOOTES  2.8  208.07570  18.64760  110  0766 

C  BOOTES  3.0  217.51599  38.52615  137  4203 

D  BOOTES  3.5  228.37132  33.50033  255  4589 

B  BOOTES  3.6  225.01527  40.58689  284  5337 

Z  BOOTES  3.9  219.68974  13.94180  412  1145 

A  CAELUM  3.8  63.08580  -  42.41676  339  6710 

B  CANCER  3.8  123.45117  9.34104  362  6569 

A  CANES  VENATICI  COR  CAROLI  2.9  193.42282  38.59801  127  3257 

A  CANIS  MAJOR  SIRIUS  -1.6  100.73631  -  16.64621  1  1881 

E  CANIS  MAJOR  1.6  104.16495  -  28.90284  24  2676 

B  CANIS  MAJOR  2.0  95.12412  -  17.92978  37  1428 

D  CANIS  MAJOR  2.0  106.58932  -  26.31260  38  3047 

N  CANIS  MAJOR  2.4  110.52905  -  29.20446  71  3651 

S  CANIS  MAJOR  3.1  105.23392  -  23.75902  165  2839 

Z  CANIS  MAJOR  3.1  94.59811  -  30.03996  175  6698 
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T 

CAN IS  MAJOR 

S 

CANIS  MAJOR 

H 

CANIS  MAJOR 

C 

CANIS  MAJOR 

A 

CANIS  MINOR 

PROCYON 

B 

CANIS  MINOR 

A 

CANOPUS 

D 

CAPRI CORNUS 

B 

CAPRI CORNUS 

A 

CAPRI CORNUS 

C 

CAPRI CORNUS 

Z 

CAPRICORNUS 

E 

CARINA 

B 

CARINA 

1 

CARINA 

T 

CARINA 

N 

CARINA 

Q 

CARINA 

J 

CARINA 

G 

CARINA 

H 

CARINA 

B 

CASSIOPEIA 

A 

CASSIOPEIA 

SCHEDIR 

D 

CASSIOPEIA 

C 

CASSIOPEIA 

E 

CASSIOPEIA 

N 

CASSIOPEIA 

Z 

CASSIOPEIA 

A 

CENTAURUS 

B 

CENTAURUS 

T 

CENTAURUS 

C 

CENTAURUS 

E 

CENTAURUS 

I 

CENTAURUS 

D 

CENTAURUS 

Z 

CENTAURUS 

M 

CENTAURUS 

L 

CENTAURUS 

M 

CENTAURUS 

M 

CENTAURUS 

0 

CENTAURUS 

A 

CEPHEUS 

ALOERAMIN 

B 

CEPHEUS 

C 

CEPHEUS 

Z 

CEPHEUS 

N 

CEPHEUS 

I 

CEPHEUS 

M 

CEPHEUS 

D 

CEPHEUS 

0 

CETUS 

MIRA 

B 

CETUS 

DENEBKAITOS 

A 

CETUS 

HENKAB 

U 

CETUS 

N 

CETUS 

C 

CETUS 

T 

CETUS 

I 

CETUS 

Z 

CETUS 

c 

CETUS 

A 

CIRCINUS 

3.4 

100.62069  - 

12.95120 

3.7 

104.93159  - 

27.86203 

3.8 

101.99301  - 

32.44963 

4.1 

105.37380  - 

15.55800 

0.5 

114.17132 

5.35467 

3.1 

111.10982 

8.39164 

-0.9 

95.71039  - 

52.66763 

3.0 

326.07080  - 

16.35512 

3.3 

304.55084  - 

14.94071 

3.8 

303.82031  - 

12.70125 

3.8 

324.33072  - 

16.88918 

3.9 

320.95392  - 

22.62898 

1.7 

125.37243  - 

59.34805 

1.8 

138.16525  - 

69.51101 

2.3 

138.93796  - 

59.06491 

3.0 

160.29189  - 

64.13205 

3.1 

146.46320  - 

64.83950 

3.4 

153.85242  - 

61.08197 

3.6 

153.13770  - 

69.78926 

3.6 

157.56036  - 

61.42769 

3.6 

118.87678  - 

52.84743 

2.4 

1.62390 

58.87410 

2.5 

9.41380 

56.26350 

2.8 

20.63124 

59.97621 

2.8 

13.41802 

60.44650 

3.4 

27. 6937. '5 

63.42497 

3.6 

11.51519 

57.55087 

3.7 

8.54305 

53.62206 

0.1 

219.04689  - 

60.63023 

0.9 

210.06879  - 

60.13280 

2.3 

210.9«282  - 

36.12490 

2.4 

189.68707  - 

48.68537 

2.6 

204.17635  - 

53.21287 

2.9 

199.44452  - 

36.44913 

2.9 

181.43936  - 

50.44398 

3.1 

208.10213  - 

4/. 04302 

3.3 

206.64857  - 

42.22546 

3.3 

173.36595  - 

62.74294 

3.5 

206.62390  - 

41.43933 

4.0 

208.80533  - 

41.85738 

4.0 

166.61153  - 

58.70384 

2.6 

319.34659 

62.37326 

3.3 

322.00552 

70.34107 

3.4 

354.31888 

77.35326 

3.6 

332.27890 

57.95431 

3.6 

311.06870 

61.64413 

3.7 

341.97336 

65.93716 

4.0 

325.49374 

58.55018 

4.0 

335.82721 

58.15882 

2.0 

34.20435  - 

3.20372 

2.r 

10.27005  - 

18.26077 

2.8 

44.91560  - 

3.89476 

3.6 

25.43608  - 

16.20014 

3.6 

16.51842  - 

10.44683 

3.6 

40.17665  - 

3.02612 

3.8 

20.38068  - 

8.44088 

3.8 

4.21993  - 

9.1C096 

3.9 

27.24770  - 

10.58136 

4.0 

39.22910  - 

0.11389 

3.4  : 

219.60991  - 

64.75900 

216 

6074 

299 

2797 

367 

7258 

484 

2303 

8 

5756 

177 

5456 

2 

4480 

151 

4644 

206 

3481 

342 

3427 

366 

4560 

414 

0341 

27 

5932 

29 

0495 

65 

6808 

148 

1083 

163 

0695 

217 

0905 

267 

0835 

271 

1006 

288 

5635 

69 

1133 

78 

1609 

104 

2268 

105 

1482 

220 

2031 

293 

1732 

306 

1566 

3 

2838 

11 

2582 

62 

5188 

67 

3603 

82 

1047 

133 

4371 

136 

9689 

160 

4538 

208 

4471 

214 

1472 

242 

4469 

445 

4577 

474 

8813 

85 

9302 

198 

0057 

237 

0818 

289 

4137 

292 

9019 

313 

0268 

452 

3693 

476 

4508 

43 

9825 

59 

7420 

107 

0920 

262 

7986 

283 

7632 

285 

0707 

338 

9274 

341 

8694 

408 

8059 

428 

0665 

222 

2853 
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D 

CIRCINUS 

A 

COLUMBA 

B 

COLUHBA 

E 

COLUMBA 

H 

COLUMBA 

N 

COLUMBA 

B 

CORONA  AUSTRALIS 

IT 

CORONA  BOREALIS 

CORONA  BOREALIS 

GEMMA 

P 

CORONA  BOREALIS 

D 

CORONA  BOREALIS 

B 

CORVUS 

n 

CORVUS 

0 

CORVUS 

ALGORAB 

B 

CORVUS 

D 

CRATER 

C 

CRUX 

A 

CYGNUS 

DENEB 

C 

CYGNUS 

E 

CYGNUS 

D 

CYGNUS 

B 

CYGNUS 

ALBIREO 

Z 

CYGNUS 

F 

CYGNUS 

I 

CYGNUS 

N 

CYGNUS 

B 

DELPHINUS 

A 

DELPHINUS 

E 

DELPHINUS 

A 

DORADO 

B 

DORADO 

C 

DRACO 

ETAMIN 

N 

DRACO 

E 

DRACO 

D 

DRACO 

Z 

DRACO 

I 

DRACO 

A 

DRACO 

H 

DRACO 

H 

DRACO 

F 

DRACO 

E 

DRACO 

B 

ERIDANUS 

C 

ERIDANUS 

T 

ERIDANUS 

U4 

ERIDANUS 

D 

ERIDANUS 

H 

ERIDANUS 

E 

ERIDANUS 

M 

ERIDANUS 

R 

ERIDANUS 

E 

ERIDANUS 

0 

ERIDANUS 

0 

ERIDANUS 

V 

ERIDANUS 

A 

FORNAX 

B 

GEMINI 

POLLUX 

A 

GEMINI 

CASTOR 

C 

GEMINI 

ALHENA 

E 

GEMINI 

MEBSUTA 

4.C 

242.71715  - 

63.56031 

478 

3474 

2  •  8 

84.45921  - 

34.09965 

101 

6059 

3.2 

87.29887  - 

35.78604 

187 

6240 

3.9 

82.35302  - 

35.50611 

427 

5924 

4.0 

95.07116  - 

33.41002 

436 

6735 

4.0 

89.40369  - 

42.81705 

463 

7650 

4.1 

286.51810  - 

37.98430 

481 

0990 

2.0 

239.35210 

26.06084 

40 

4129 

2.3 

233.14227 

26.88188 

63 

3893 

3.7 

231.44144 

29.27702 

319 

3831 

3.9 

235.16026 

26.45288 

415 

3958 

2.8 

187.93892  - 

23.12045 

102 

0915 

2.8 

183.30768  - 

17.26440 

114 

7176 

3.1 

186.81825  - 

16.23726 

174 

7323 

3.2 

181.88716  - 

22.34170 

186 

0531 

3.4 

167.90443 

15.70316 

221 

9512 

1.6 

187.09470  - 

56.83342 

23 

0019 

1.3 

309.93143 

45.10086 

17 

9941 

2.3 

305.10803 

40.09571 

61 

9528 

2.6 

311.04654 

33.78199 

84 

0474 

3.0 

295.85278 

45.00784 

140 

8796 

3.2 

292.17593 

27.85346 

191 

7301 

3.4 

317.70148 

30.02098 

227 

1070 

3.9 

315.77747 

43.72759 

385 

0424 

3.9 

292.11115 

51.62249 

401 

1702 

4.0 

298.60718 

34.94951 

438 

9116 

3.7 

308.80087 

14.42009 

301 

6316 

3.9 

309.32864 

15.73453 

396 

«357 

4.0 

307.70584 

11.13218 

446 

6230 

3 . 5 

68.22832  - 

55.14772 

260 

3564 

3.8 

83.29721  - 

62.52228 

347 

9311 

2.4 

268.86075 

51.49404 

68 

0653 

2.9 

245.82698 

61.62697 

129 

7074 

3.0 

262.32504 

52.33768 

144 

0429 

3.2 

288.13678 

67.57362 

180 

8222 

3.2 

257.15894 

65.77612 

194 

7365 

3.5 

230.95309 

59.14060 

256 

9520 

3 . 6 

210.75818 

64.61433 

269 

6273 

3.7 

275.48950 

72.71171 

323 

9087 

3.9 

187.83980 

70.06361 

392 

7593 

3.9 

268.16541 

56.87991 

407 

0631 

4.0 

297.08777 

70.14071 

460 

9540 

2.9 

76.34735  - 

5.14959 

130 

1794 

3.2 

58.92363  - 

13.64949 

192 

9283 

3.4 

44.09118  - 

40.50421 

240 

6113 

3.6 

64.00015  - 

33.91935 

273 

4902 

3.7 

55.21265  - 

9.93140 

309 

0686 

3.7 

28.50343  - 

51.85715 

311 

2573 

3.8 

51.11387  - 

9.55977 

349 

1195 

3.8 

72.13509  - 

5.52121 

360 

2142 

3.8 

33.68092  - 

51.74303 

364 

2696 

3.8 

52.64315  - 

9.62632 

370 

0564 

3.9 

60.12327  - 

5.85208 

398 

1579 

3.9 

55.44700  - 

42.42240 

404 

9078 

3.9 

68.40131  - 

30.66360 

423 

5148 

4.0 

47.48646  - 

29.18317 

467 

8373 

1.2 

115.56465 

28.14864 

16 

9666 

1.6 

112.85272 

31.99974 

22 

0198 

1.9 

98.70582 

16.44372 

34 

5912 

3.2 

100.21401 

25.18248 

188 

8682 
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M  GEMINI 
D  GEMINI 
T  GEMINI 
C  GEMINI 
N  GEMINI 
H  GEMINI 
Z  GEMINI 
I  GEMINI 
A  GRUS 
B  GRUS 
C  GRUS 
E  GRUS 
D  GRUS 
B  HERCULES 
Z  HERCULES 
D  HERCULES 
P  HERCULES 
M  HERCULES 
N  HERCULES 
I  HERCULES 
F  HERCULES 
E  HERCULES 
U  HERCULES 
T  HERCULES 
A  HYDRA 
C  HYDRA 
Z  HYDRA 
V  HYDRA 
C  HYDRA 
E  HYDRA 
P  HYDRA 
F  HYDRA 
T  HYDRA 
r  HYDRA 
B  HYDRUS 
A  HYDRUS 
C  HYDRUS 
A  INDUS 
B  INDUS 
A  LACERTA 
A  LEO 
B  LEO 
C  LEO 
D  LEO 
E  LEO 
Z  LEO 
N  LEO 
C  LEO 
0  LEO 
Y  LEO 
I  LEO 
S  LEO 

0  LEO  MINOR 
A  LEPUS 
B  LEPUS 
M  LEPUS 
E  LEPUS 
Z  LEPUS 
D  LEPUS 
N  LEPUS 


ALPHARD 


FSGULUS 

DENEBOLA 

ALGEIBA 

ZOSMA 


ARNEB 

NIHAL 


3.2  94.98373 

3.5  109.28444 

3.6  102.37363 

3.6  108.80499 

3.7  92.96461 
3.7  115.35773 
3.9  105.28594 
3.9  IJO. 65573 

2.2  331.27286  - 

2.2  339.92267  - 

3.2  327.72687  - 

3.7  341.38629  - 
4.0  336.57227  - 

2.8  247.01711 
3.0  249.84995 

3.2  258.24399 

3.4  258.32590 

3.5  266.12500 

3.6  250.29491 

3.8  264.51276 

3.8  268.95505 

3.9  254.59363 
3.9  244.55878 
4.0  268.63409 

2.2  141.28246  - 

3.3  199.04945  - 
3.3  133.18788  - 
3.3  161.78888  - 
3.5  260.29471  - 
3.5  131.03232  - 

3.5  210.87935  - 

3.7  372.63443  - 

3.8  137.94090  - 

3.8  152.03728  - 

2.9  5.78906  - 

3.0  29.29876  - 

3.2  56.99777  - 

3.2  308.51471  - 

3.7  312.72949  - 

3.9  337.30649 

1.3  151.42769 

2.2  176.62752 

2.6  154.30467 

2.6  167.86285 
3.1  145.75415 

3.6  153.47816 

3.6  151.15222 

3.8  154.30585 

3.8  144.62086 

3.9  157.54485 
4.0  170.32971 
4.0  233.18114 
3.9  162.63013 

2.7  32.63081  - 

3.0  61.52538  - 

3.3  77.67089  - 

3.3  75.83568  - 

3.7  86.17207  - 

3.8  85.59439  - 

3.8  88.53147  - 


22.54111 
22.07613 
34.02349 
16.63226 
22.52316 
24.51958 
20.64540 
27.89921 
47.20404 
47.14672 
37.60099 
51.58035 
43.75178 
21.59727 
31.69226 
24.89688 
36.86440 
27.74872 
39.01633 
46.03202 
29.25204 
30.99887 
46.43156 
37.25602 
8.44096 
22.90830 
6.13701 
15.93151 
''S. 33301 
6.60345 
26.44236 
31.58074 
2.52629 
12.10626 
/7. 53569 
61.81262 
74.39265 
47.46748 
58.64450 
50.02499 
12.21237 
14.85161 
20.09524 
20.79796 
24.00545 
23.66721 
17.00727 
20.09436 
10.12073 
9.56451 
10.80488 
14.62420 
34.48489 
17.85672 
20.79803 
16.26332 
22.43690 
14.83922 
22.46342 
14.17546 


193 

6297 

244 

9294 

265 

9570 

295 

6746 

305 

8135 

314 

9653 

413 

9031 

417 

9374 

57 

0992 

60 

1258 

182 

3374 

300 

7593 

477 

1154 

112 

4411 

142 

5485 

181 

4951 

218 

5890 

245 

5397 

264 

5504 

337 

6872 

346 

5590 

402 

5716 

421 

6028 

430 

6485 

33 

6871 

202 

1543 

2'.1 

7264 

2x1 

6256 

254 

4726 

25; 

7x12 

258 

2244 

307 

2558 

3.4 

7527 

369 

5785 

126 

5670 

147 

8474 

183 

6029 

185 

0300 

315 

6784 

405 

4542 

19 

8967 

55 

9809 

83 

1298 

86 

1727 

171 

1004 

268 

1265 

273 

8955 

3J’ 

1299 

379 

8709 

387 

8355 

459 

9587 

479 

9370 

419 

2297 

05 

0547 

146 

0457 

200 

0237 

215 

0051 

303 

0801 

344 

0759 

355 

0957 
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D 

LEPUS 

3.9 

87.29247 

20.88201 

395 

0926 

B 

LIBRA 

2.7 

228.57805 

- 

9.19970 

93 

0480 

A 

LIBRA 

2.S 

222.02686 

- 

15.63516 

119 

8840 

S 

LIBRA 

3.4 

225.28436 

- 

25.08674 

230 

3139 

S 

LIBRA 

3.5 

201.74367 

- 

23.02348 

253 

1695 

C 

LIBRA 

4.1 

169.63954 

* 

6.30363 

480 

8804 

N 

LUPUS 

2.6 

218.08044 

- 

41.93938 

87 

5044 

B 

LUPUS 

2.8 

223.81161 

- 

42.93391 

109 

5335 

A 

LUPUS 

2.9 

219.64804 

- 

47.17481 

131 

5128 

Z 

LUPUS 

3.0 

232.94995 

41.00027 

143 

5938 

r* 

w 

LUPUS 

3.4 

223.97462 

- 

41.90491 

219 

5344 

E 

LUPUS 

3.4 

229.52022 

- 

40.46803 

224 

5691 

A 

LUPUS 

3.5 

227.16983 

- 

51.91050 

252 

2304 

R 

LUPUS 

3  6 

229.65630 

- 

36.08144 

270 

6552 

E 

LUPUS 

3.7 

229.81880 

44.51117 

298 

5712 

V 

LUPUS 

3.8 

233.49568 

- 

27.97094 

356 

3619 

P 

LUPUS 

0 

225.42570 

- 

46.85689 

458 

5426 

0 

LUPUS 

^  .1 

227.11153 

- 

48.54920 

493 

5525 

A 

LYNX 

3.3 

139.50360 

34.60516 

199 

1414 

0 

LYNX 

3.8 

138.93477 

37.01543 

373 

1391 

A 

LYRA 

VEGA 

0.1 

278.81107 

38.73602 

4 

7174 

C 

LYRA 

3.3 

284.26788 

32.61979 

205 

7663 

B 

LYRA 

3.9 

282.05807 

33.30347 

403 

7451 

F 

MICROSCOPIUM 

3.8 

318.19815 

37.83119 

357 

1121 

0 

NONOCEROS 

4.0 

125.79049 

3.74207 

454 

5896 

D 

MONCCEP.Ci 

4.1 

107.32758 

- 

0.40845 

497 

4330 

A 

MUSCA 

2.9 

188.54456 

- 

68.86023 

117 

1974 

B 

HUSCA 

3.3 

190.79788 

- 

67.83477 

209 

2019 

D 

MUSCA 

3.6 

194.69989 

- 

71.27978 

282 

7000 

L 

MUSCA 

3.8 

175.80843 

- 

66.45140 

340 

1575 

C 

MUSCA 

4.0 

187.36331 

- 

71.85699 

470 

6955 

L 

MUSCA 

4.1 

172.11478 

- 

69.60725 

498 

5532 

N 

NORMA 

3.6 

239.20010 

- 

38.25555 

296 

7208 

V 

OCTANS 

3.7 

323.99945 

_ 

77.61395 

331 

7948 

A 

OPHIUCHUS 

RAS  ALHAGUE 

2.1 

263.15289 

12.59498 

49 

2932 

N 

OPHIUCHUS 

X.  •  6 

256.87692 

- 

15.66469 

89 

0332 

Z 

OPHIUCHUS 

2.7 

248.60057 

- 

10.46745 

94 

0006 

B 

OPHIUCHUS 

2.9 

265.25018 

4.58662 

116 

2671 

D 

OPHIUCHUS 

3.0 

242.93053 

- 

’.56-706 

156 

1052 

E 

OPHIUCHUS 

3.3 

243.91812 

- 

4.57210 

213 

1086 

T 

OPHIUCHUS 

3.4 

259.73398 

- 

24.95144 

225 

5320 

H 

OPHIUCHUS 

3.4 

253.82483 

9.45134 

236 

1962 

N 

OPHIUCHUS 

3.5 

258.09146 

14.44593 

246 

2680 

M 

OPHIUCHUS 

3.6 

236.75186 

- 

3.27860 

274 

0787 

0 

OPHIUCHUS 

3.7 

271.24438 

9.55526 

304 

3142 

C 

OPHIUCHUS 

3.7 

266.34592 

2.72452 

326 

2754 

0 

OPHIUCHUS 

4.0 

269.53479 

2.9323S 

457 

3013 

B 

ORION 

RIGEL 

0.3 

78.03329 

- 

8.25796 

7 

1907 

A 

ORION 

BETELGEUSE 

0.6 

88.11587 

7.39942 

10 

3271 

C 

ORION 

BELLATRIX 

1.7 

80.61179 

6.30603 

28 

2740 

D 

ORION 

HINTAKA 

1.8 

83.41865 

- 

1.23231 

30 

2346 

E 

ORION 

ALNILAH 

2.0 

84.55351 

1.96749 

39 

2444 

K 

ORION 
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PS  ORION 
A  PAVO 
D  PmVO 
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B  PERSEUS 
Z  PERSEUS 
E  PERSEUS 
C  PERSEUS 
D  PERSEUS 

Y  PERSEUS 
F  PERSEUS 
N  PERSEUS 
A  PHO'^NIX 
B  PHOENIX 
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3.6  310.11942  - 
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2.6  345.56693 

2.6  345.33655 
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z  URSA  MAJOR 
B  URSA  MAJOR 
C  URSA  MAJOR 
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*  PROGRAM  DUMBO  * 

*  DETERMINING  URANOGRAPHIC  MATCHES  from  * 

*  BANDS  OBSERVED  * 

*  * 

*  WRITTEN  BY:  LAURA  STERRETT  * 

*  MODIFIED  BY:  TIM  POTH  &  NICKI  COOK  * 

*  * 

*  PURPOSE:  THIS  PROGRAM  READS  IN  THE  SAO,  PRIMARY,  AND  SUPPLEMENT-  * 

*  ARY  MAPS  AND  MATCHES  STARS,  BASED  ON  LOCATION,  VISUAL  * 

*  MAGNITUDE,  AND  SPECTRAL  TYPE.  ADDITIONALLY,  THIS  * 

*  COMPUTES  THE  PEAK  IRRADIANCE  MAGNITUDES  FOR  FURTHER  * 

*  COMPARISON  AND  EVALUATION.  * 
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*  DATE:  JULY  5,1990 
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C  This  allows  the  SAO  map  to  be  read  in  by  array  of  up  to  30000  elements 

C  COMMON/ERR/XX 

DIMENSION  SRA(  30000) ,SDEC{  30000) ,B(  30000) 

DIMENSION  SND( 30000 ) ,PM( 30000) 

DIMENSION  VMAG( 30000) ,DV( 30000) 

DIMENSION  PMA( 30000) , Cl 1(30000) ,C12( 30000) ,SRAR( 30000) 

DIMENSION  SDECR( 30000) 

CHARACTER*!  SPECT( 30000) ,SUBSP(  30000) ,VMA( 30000) 

INTEGER  SAON( 30000) ,FILECNT, XX 

CHARACTER* 20  SAO , PRI , SUP , OUT , BAND, DEND 

REAL  *  4  VMAG , I RMAG , TEMP , 1 RM4 , 1 RMl 1 , 1 RM2  0 , 1 RM2  7 , PM , TRAD 

CHARACTER* 2  EM4 , EMll , EM20 , EM27 , ANS 

C  The  following  commom  statements  are  used  in  subroutine  "ANGLE" 

COMMON/GL/  RA, DEC , IRM4 , EM4 , IRMll , EMll , IRM20 , EM20 , IRM27 , EM27 

COMMON/NUM/  NSAO , NPRI , NSUP , NOUT , NBAND 

COMMON/TREE/JCOUNT 

C  This  defines  the  files  which  are  opened 


DO  777  FILECNT»1,18 
I F ( FI LECNT . EQ . 1 ) THEN 

SAO-  ' (STARS) SA085.DAT' 
PRI-  ' (STARS]PRI85.DAT' 
SUP-  ' I  STARS ) SUPS  5 . DA^ ' 
OUT-  'P0SMATCH85.DAT' 
DEND- ' MAGMATCH  8  5 . DAT ' 

GO  TO  1 
ENDIF 

I F ( FI LECNT . EQ . 2 ) THEN 
SAO-  ' ( STARS  1 SA07  5 . DAT ' 
PRI-  'ISTARS1PRI75.DAT' 
SUP-  ' (STARS) SUP75.DAT' 
OUT-  'P0SMATCH75.DAT' 
DEND- ' MAGMATCH7  5 . DAT ' 

GO  TO  1 
ENDIF 

I F ( FI LECNT . EQ . 3 ) THEN 
SAO-  ' ( STARS ) SA06  5 . DAT ' 
PRI-  ' (STARS )PRI65. DAT' 
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SUP-  '(STARSJSUP65.DAT' 
OUT-  'P0SMATCH65.DAT' 
DEND- ' MAGMATCH6  5 . DAT ' 

GO  TO  1 
END  IF 


IF(FILECNT.EQ. 4 )THEN 
SAO-  'tSTARSjSA055.DAT' 
PRI-  '[STARSJPRI55.DAT' 
SUP-  'fSTARSjSUP55.DAT' 
OUT-  'P0SMATCH55.DAT' 
DEND- ' MAGMATCH  5  5 . DAT ' 

GO  TO  1 
END  IF 

IF( FILECNT.EQ. 5 ) THEN 
SAO-  '[STARSJSA045.DAT' 
PRI-  '[STARSJPRI45.DAT' 
SUP-  '[STARSJSUP45.DAT' 
OUT-  'POSMATCH45.PAT' 
DEND- '  MAGMATCH4  5 . DAT ' 

GO  TO  1 
ENDIF 

I F( FILECNT.EQ, 6) THEN 
SAO-  ' [STARS]SA035,DAT' 
PRl^  '(STARSJPRI35.DAT' 
SUP-  '(STARS1SUP35.DAT' 
OUT-  'POSMATCH35.DAT' 
DEND- ' MAGMATCH  3  5 . DAT ' 

GO  TO  1 
ENDIF 


IF{ FILECNT.EQ. 7) THEN 
SAO-  '[STARSlSA025.DAT' 
PRI-  '(STARSjPRI25.DAT' 
SUP-  ' {STARS) SUP25.DAT' 
OUT-  'P0SMATCH25.DAT' 
DEND- ' MAGMATCH2  5 . DAT ' 

GO  TO  1 
ENDIF 

IF( FILECNT.EQ. 8) THEN 
SAO-  ' ( STARS  J  SAOl 5 . DAT ' 
PRI-  ' (STARS) PRI 15. DAT' 
SUP-  ' (STARS) SUP15.DAT' 
OUT-  'POSMATCH15.DAT' 
DEND- ' MAGMATCHl 5 . DAT ' 

GO  TO  1 
ENDIF 

IF( FILECNT. EQ. 9 )THEN 
SAO-  ' [ STARS ) SAOO  5 . DAT ' 
PRI-  ' (STARSjPRlOS.DAT' 
SUP-  ' (STARS) SUP05.DAT' 
OUT-  'POSMATCH05.DAT' 
DEND- ' NAGHATCHO  5 . DAT ' 

GO  TO  1 
ENDIF 

IF{FILECNT.EQ.10)THEN 
SAO-  ' ( STARS ) SAO-05 . DAT' 
PRI-  '(STARS)PRI-05.DAT' 
SUP-  '{ STARS )SOP-05. DAT' 
OUT-  'POSIIATCH-05.DAT' 
DEND- ' MAGMATCH- 0 5 . DAT ' 

GO  TO  1 
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END  IF 

IF( FILECNT.EQ. 11 )THEN 
SAO-  '[STARSJSA0-15.DAT' 
PRI-  ' [STARS] PRI-15.DAT' 
SUP-  ' [STARS] SUP-1 5. DAT' 
OUT-  'POSMATCH-15.DAT' 
DEND- ' MAGMATCH- 1 5 . DAT ' 

GO  TO  1 
END  IF 

IF (FILECNT.EQ. 12) THEN 
SAO-  ' [STARS] SAO-25.DAT' 
PRI-  '[STARSJPRI-25.DAT' 
SUP-  ' [STARS] SUP-2 5. DAT' 
OUT-  'POSMATCH-25.DAT' 
DEND- ' MAGMATCH-2  5 . DAT ' 

GO  TO  1 
END  IF 

I F ( FILECNT . EQ . 1 3 ) THEN 
SAO-  ' [ STARS ]SAO-35 .DAT' 
PRI-  ' [STARS]PRI-35.DAT' 
SUP-  '[STARSisUP-35.DAT' 
OUT-  'POSMATCH-35.DAT' 
DEND- ' MAGMATCH- 3  5 . DAT ' 

GO  TO  1 
END  IF 

IF( FILECNT.EQ. 14 )THEN 
SAO-  ' [STARS] SAO- 4 5. DAT' 
PRI-  '[STARS] PRI-45.DAT' 
SUP-  ' [STARS] SUP-4 5. DAT' 
OUT-  'POSMATCH-45.DAT' 
DEND- ' MAGMATCH- 4  5 . DAT ' 

GO  TO  1 
END  IF 

IF{ FILECNT.EQ. 15) THEN 
SAO-  ' [STARS] SAO- 5 5. DAT' 
PRI-  ' [STARS] PRI-55.DAT' 
SUP-  '[STARS1SUP-55.DAT' 
OUT-  'POSMATCH-55.DAT' 
DEND- ' MAGMATCH- 5  5 . DAT ' 

GO  TO  1 
ENDIF 

IF(FILECNT.EQ.16)THEN 
SAO-  ' [STARS] SAO-65.DAT' 
PRI-  '[STARsjpRI-65.DAT' 
SUP-  ' [STARS] SUP-6 5. DAT' 
OUT"  'POSMATCH-65.DAT' 
DEND- ' MAGMATCH- 6  5 . DAT ' 

GO  TO  1 
ENDIF 

I F { FILECNT . EQ . 1 7 ) THEN 
SAO-  ' [STARS] SAO-75.DAT' 
PRI-  ' [STARS] PRI-75.DAT' 
SUP-  '[STARSJSUP-75.DAT' 
OUT-  'POSMATCH-75.DAT' 
DEND- ' MAGMATCH- 7  5 . DAT ' 

GO  TO  1 
ENDIF 

I F ( F I LECNT . EQ . 1 8 ) THEN 
SAO-  ' [STARS] SAO-85.DAT' 
PRI-  ' [STARS] PRI-85.DAT' 
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SUP=  ' (STARS) SUP-8  5. DAT' 

OUT=  'POSMATCH-85.DAT' 

DEND- ' MAGMATCH-8  5 . DAT ' 

ELSE 

WRITE(*,*) 'FILECNT  STOP' 

STOP 
END  IF 

C  Defining  File  Numbers 

DATA  NSAO,NPRI,NSUP,NOUT,NEND  /lO , 20 , 30 , 4 0 , 50/ 

I  OPEN (NSAO, FI LE»SAO, STATUS- 'OLD' , READONLY) 

OPEN(NPRI,FILE-PRI .STATUS- 'OLD' .READONLY) 

OPEN ( NSUP , FILE-SUP . STATUS- ' OLD ' , READONLY ) 

OPEN ( NOUT , FILE-OUT . STATUS- ' NEW ' ) 

OPEN ( NEND , FI LE-DEND , STATUS- ' NEW ' ) 

OPEN( 6, FILE- 'SS_STAR_CAT.DAT' , STATUS- ' NEW' ) 

C  Initializing  counter  for  star  matches 

JCOUNT-0 

C  Defining  constants 

DATA  PI,  Cl,  C2  /3. 141592654,  3.7415E+04,  1.43879E+04/ 

C  This  loop  reads  in  the  SAO  map  in  an  array  for  comparison 

WRITE!*,*)'  READING  IN  SAO  HAP FILECNT 
DO  299  11-1,27000 

READ(NSAO, 25, END-299)  SAON( II ) ,B(II ) , SRA(II ) , SND(II ) , 

+  SDECdl )  ,PM(II )  ,VMAG(II )  .SPECT(II )  ,SUBSP(II  )  ,DV(II )  , 

+  VMAdI  )  ,PMAdI  )  .Clldl  )  ,Cl2dl)  .SRARdI  )  .SDECRIII ) 

25  FORMATd7,Al,Fl0.5,Al,Fll.5,lX,F4.1,lX,F4.1,Al,Al,lX,Al, 

+  A1,A1,A2,A1,F10.8,F11,8) 

ICNT-II 

299  CONTINUE 

C  To  chec)<  SAO  completion 

WRITE!*,*)'  READING  SAO  MAP  COMPLETE...' 

C  This  initializes  the  counter  which  checks  for  duplicated  matches 

I COUNT- 0 
NCOUNT-0 

C  Read  in  AFGL  Map  !  Primary  and  Secondary  ) 

WRITE!*,*)'  CHECKING  AFGL  PRIMARY  MAP  FOR  POSITION  MATCH...' 

DO  11  JDEC-1,1000 

READ ( NPRI ,35, END- 1 1 ) NAFGL , AFGLN , RA , DEC , I RM4 , EM4 , 

&  IRMll ,  EMU  ,  IRM20 ,  EM20 ,  IRM27 ,  EM27 

C  This  calls  "ANGLE"  subroutine  in  order  to  check  right  ascension  and 
C  declination  matches 

CALL  ANGLE ( SRA , SDEC , VMAG , VMA , SPEC! , SUBSP , I CNT ) 

II  CONTINUE 
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on  noon 


C  This  loop  compares  the  supplementary  map  with  the  SAO  map 


WRITE(*,*)'  CHECKING  SUPPLEMENTAL  MAP  FOR  POSITION  MATCH...' 

DO  33  JO  =1,1000 

READ ( NSUP ,35, END=  3  3 ) NAFGL ,  AFGLN , RA , DEC , I RM4 , EM4 , 

&  IRM11,EM11,IRM20,EM20,IRM2'/  ,EM27 

CALL  ANGLE! SRA,SDEC,VMAG,VMA,SPECT,SUBSP, ICNT) 

35  FORMAT! I5,2X,A5,F10.5,3X,F10.5,1X,F4.1,2X,A2,2X, 

&  F4 . 1 , 2X , A2 , 2X , F4 . 1 , 2X , A2 , 2X , F4 . 1 , 2X , A2 ) 

33  CONTINUE 

This  notes  the  finish  of  the  comparison  of  the  supplmental  and  SAO 
maps 

WRITE!*,*)'  POSITION  MATCHING  COMPLETE  FOR  BOTH  IR  MAPS...' 

Calculating  the  actual  temperature  of  the  star  from  the  spectral 
class  and  subclass 

WRITE!*,*)'  CHECKING  FOR  MATCHES  IN  MAGNITUDE...' 

REWIND  !NOUT) 

DO  44  J»l,1000 

READ ! NOUT ,45, END=99 ) I  COUNT , JCOUNT , SRA! J ) , RA , SDEC IJ ) , 

&  DEC,VMAG! J) ,VMA! J) , SPECT!  J ) , SUBSP ! J ) , IRM4 , EM4 , IRMll , 

&  EM11,IRM20,EM20,IRM27,EM27 

45  FORMAT! 16 , IX, I6 , IX, Fl 0 . 5 , IX , FlO . 5 , Fll . 5 , FIO . 5 , F4 . 1 , IX , 

&  A1,A1,A1,1X,F4.1,1X,A2,1X,F4.1,1X,A2,1X,F4.1,1X,A2,1X, 

&  F4.1,1X,A2) 

CALL  TEMPER!SPECT, SUBSP, T,J) 

IF  !T  .EQ.  0. )  GO  TO  44 

Checking  for  zero  readings  in  tlie  IR  wavebands  and  assigning 
wavelengths 

191  IF  !  IRM4  .LT.  99.9)THEN 

NLAM  -  1 
IRMAG  -  IRM4 
IJ=1 
ELSE 

IF  !IRMll  .LT.  99.9)  THEN 
NLAM  =  2 
IRMAG  -  IRMll 
IJ=IJ+1 
ELSE 

IF  !  IRM20  .LT.  99.9)  THEN 
NLAM  -  3 
IRMAG-  IRM20 
IJ-IJ+10 
ELSE 

IF  !  IRM27  .LT.  99.9)  THEN 
NLAM  -  4 
IRMAG-  IRM27 
IJ-IJ+20 
ELSE 

WRITE! *,' !A) ' )  '  ALL  IR  WAVELENGTHS  WERE  99  OR  0' 

END  IF 
END  IF 
END  IF 
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END  IF 


C  This  subroutine  compares  visual  magnitude  for  match 

CALL  MAG ( NLAM , VMAG , IRMAG , T , SRAD , MATCH , NEND , DEND , J , 

+  SMAG,HPEAK) 

C  If  match  =  0  thenmatch  is  established 

IF  (  MATCH  .EQ.  0  )  THEN 
NCOUNT=NCOUNT+1 

This  subroutine  computes  spectral  irradiance  between  two 
given  wave  bands....  4  and  12 

CALL  RADI ANCE(T, SRAD, TRAD) 

Finally,  all  star  match  data  is  written  to  a  file 

WRITE(NEND,20)  NCOUNT , SRA( J ) , SDEC ( J ) , T , SPECT( J ) , 
SUBSP( J) ,VMAG( J) ,SRAD,NLAM,IRMAG,SMAG,HPEAK 
FORMAT(1X,I6,1X,F10.5,1X,F10.5,1X,F10.1,1X,A3,1X, 

A1 , IX , F4 . 1 , E12 . 5 , 1 2 , F4 . 1 , F4 . 1 , 2X , E12 . 5 ) 


CALL  RADIANCE(T, SRAD.TRAD) 

END  IF 

IF  (TRAD  .GT.  .730E-15)  THEN 

WRITE  (6, 20)  NCOUNT, SRA( J) ,SDEC(J) ,T,SPECT(J) ,SUBSP( J) , 
VMAG { J ) , TRAD , NLAM , IRMAG , SMAG , HPEAK 

END  IF 
END  IF 

WRITE( *, * ) NCOUNT 

CONTINUE 

CONTINUE 

CONTINUE 

STOP 

END 


SUBROUTINE  ANGLE ( SRA , SDEC , VMAG , VMA , SPECT , SUBSP , ICNT ) 

C  This  subroutine  compares  the  right  ascension  and  declination 
C  of  stars 

COMMON/NUM/  NSAO , NPRI , NSUP , NOUT, NBAND 
COMMON/TREE/JCOUNT 

DIMENSION  SRA( 30000) , SDEC ( 30000 ) ,VMAG( 30000 ) 

COMMON/GL/  RA , DEC , IRM4 , EM4 , IRMll , EMll , IRM20 , EM20 , IRM27 , EM27 
REAL*4  IRM4, IRMll, IRM20,IRM27 
CHARACTER*2  EM4 , EMll , EM20 , EM27 

CHARACTER*!  SPECT( 30000) , SUBSP( 30000 ) ,VMA( 30000) 

C  This  sets  the  error  bands 

ERR-0.01 

ERAMIN-RA-ERR 

ERAMAX-RA+ERR 

EDCMIN-DEC-ERR 

EDCMAX-DEC+ERR 


C  76 
C 

20 

76 


44 

99 

777 


Q  it  it  it  -k  it  it  "k 
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C  This  initializes  ICOUNT  to  count  the  star  matches 
I COUNT* 0 

C  The  following  loop  counts  the  stars  and  outputs  them  to  a  temporary 
C  file  to  be  read  in  again  later 

DO  299  I=1,ICNT 

C  Comparing  Right  Ascension  and  Declination 

IF  (SRA(I)  ,GE.  ERAMIN  .AND.  SRA( I )  .LE.  ERAMAX )  THEN 
IF  (SDECd)  .GE.  EDCMIN  .AND.  SDEC(I)  .LE.  EDCMAX )  THEN 
IC0UNT»1C0UNT+1 
JCOUNT-JCOUNT+1 

WRITE(NOUT,30)ICOUNT, JCOUNT,SRA(I) ,RA,SDEC( I ) ,DEC, 

&  VMAG( I ) ,VMA( 1 ) ,SPECT( I ) , SUBSP( I ) , 1RM4 , EM4 , IRMll , 

&  EM11,IRM20,EM20,1RM27,EM27 

30  FORMAT(I6,1X,I6,1X,F10.5,1X,F10.5,F11.5,F10.5,F4.1,1X, 

&  A1,A1,A1,1X,F4.1,1X,A2,1X,F4.1,1X,A2,1X,F4.1,1X,A2, 

&  1X,F4.1,1X,A2) 

END  IF 
END  IF 

299  CONTINUE 

C  CLOSE (NOUT) 

99  RETURN 

END 

SUBROUTINE  TEMPER ( SPECT , SUBSP , TEMP , ICNT ) 

Spectral  Class  and  Subclass  (SPECT  and  SUBSP)  characters  are  read 
from  the  SAO  Catalog.  The  classes  correspond  to  Temperatures.  The 
temperatures  below  need  to  be  multiplied  by  1000  deg  K. 

CHARACTER*!  CLASS ( 11 ) , SBCLASS ( 11 ) , SCLASS { 6 ) , SPECT( 30000) , 

+  SUBSP{30000) 

REAL *4  TEMP 

REAL  TEMPN(11,11) »TEMPO(6) ,TEMPMN(6) 

DATA  CLASS  /' 0 ' , ' B ' , ' A' , ' F' , ' G ' , ' K' , ' M' , ' N' , ' S ' , ' R d ' C V 
C  DATA  CLASS  / '  0 '  ,  '  B  '  ,  '  A ' , ' F ' , ' G ' , ' K ' , ' M' , ' R ' / ' C ' , ' N ' , ' S ' / 

DATA  SBCLASS  /' O', '1', '2', '3', '4', '5', '6', '7', '8', '9','  '/ 

DATA  SCLASS  /' A ' , ' B ' , ' C ' , ' D' , ' E ' , ' F '/ 

C  This  table  plots  temperatures  with  class  verses  subclass: 

DATA  TEMPN/50000. ,22000. , 10800 ., 7400. , 5900 . ,5000. ,3600.  , 

+  5200. ,5200. ,3600. ,3600., 

+  45000. ,20000. ,10000. ,7200. ,5800. ,4800. ,3400. ,5000.  , 

+  5000. ,  3400. ,  3400.  , 

+  45000. ,18000.  ,9800. ,7000. ,5700. ,4600. ,3200. ,4900.  , 

+  4900. ,3200. ,3200.  , 

+  40000. ,16000. ,9400. ,6800. ,5600. ,4500. ,3100. ,4700.  , 

+  4700. ,3100. ,3100. , 

+  36000. ,15000. ,8900. ,6700. ,5600. ,4300. ,2900. ,4200.  , 

+  3900. ,2900. ,2900.  , 

+  36000.  ,14000. ,8500. ,6500. ,5500. ,4200. ,2700. ,3900.  , 

+  3700. ,2700. ,2700.  , 

+  33000.  ,13000. ,8300. ,6400. ,5400. ,4000. ,2600. ,3700.  , 

+  3300. ,2600. ,2600.  , 
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+  28000. ,12500. ,8000. ,6200. ,5300. ,3900. ,2400. ,3500. , 

+  3100. ,2400. ,2400. , 

+  26000. ,11700. ,7800. ,6100. ,5200. ,3800. ,2300. ,3200. , 

+  3000. ,2300.  ,2300.  , 

+  24000. ,  113000  ,7600. ,6000. ,5100. ,3700. ,2100  . ,  3100  .  , 

+  2500. ,2100. ,2100. , 

+  28000. ,20000. ,10800. ,7400  , 5900 ., 4800 ., 3200 ., 5100 . , 

+  5100. ,3200. ,3200./ 

C  This  is  extra  table  information  for  a  higher  subclass 

DATA  TEMPMN/  3200 ., 2900  ., 2700  ., 2600 ., 2400 .. 2400 . 0/ 

C  This  routine  finds  temperature  based  on  spectral  type 

DO  100  I==l,ll 

IF  (CLASS(I)  .EQ.  SPECT(ICNT))  GO  TO  11 
100  CONTINUE 

GO  TO  56 
11  CONTINUE 

DO  200  J-1,11 

IF  (SBCLASS(J)  .EQ.  SUBSP(ICNT))  GO  TO  22 
200  CONTINUE 

DO  300  K*l,6 

IF  (SCLASS(K)  .EQ.  SUBSP(ICNT))  GO  TO  33 
300  CONTINUE 

GO  TO  56 
22  CONTINUE 

C  TEMP-  TEMPN(J,I) 

TEMP-  TEMPN(I,J) 

GO  TO  55 

33  CONTINUE 

TEMP-  TEMPMN(K) 

GO  TO  55 
44  CONTINUE 

56  TEMP-0.0 

55  CONTINUE 

RETURN 
END 

C& &&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
SUBROUTINE  MAG(NLAM,VMAG, I RMAG, TEMP, SRAD, MATCH, NEND, 

+  DEND, ICNT,SMAG,HPEAK,XX) 

Using  effective  temperatures  to  calculate  peak  irradiance 
magnitudes . 

INTEGER  NLAM,  MATCH,  NEND 
CHARACTER* 20  DEND 
REAL*4  LAMBDA(4),  LAMB 
DIMENSION  VMAG( 30000) 

REAL*4  HPEAK,RATI0,RAD(16) , TEMP , TMAX , DELT 
REAL*4  Cl,C2,C3,C4,Q,H0,HAGNAX,HAGHIN,IRMAG 
DATA  C1,C2,C3,C4  /  21.199,  14387.9,  3.743E+08,  2.9085E+19/ 
DATA  SIGMA  /  5.669E-12/ 

DATA  LAMBDA/  4.2,11.0,20.0,27.0/ 

DATA  H04,H011,H020,H027/  3 .6E-15 , 8 . 7E-17 , 8 . 2E-18 , 2 . 5E-18/ 
DATA  RAD  /I . 2E-10 , 1 . OE-10 , 7 . 3E-11 , 6 . OE-11 , 4 . OE-11 , 3 . OE-11 , 
2.2E-11,1 .6E-11,1.0E-11,7.0E-12,4.0E-12,2.0E-12, 
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4 .1E-12,1.2E-11,6.0E-11,6.0E-11/ 

COMMON/ERR/XX 

This  pairs  the  wavelength  4.2,  11,  20,  or  27  with  appropriate 
spetral  ir radiance  number  (Table  4) 

IF{  NLAM  .EQ.  1)THEN 
LAMB  =  LAMBDA! 1) 

HO*  H04 
ELSE 

IF(  NLAM  .EQ.  2)  THEN 
LAMB  *  LAMBDA(2) 

HO-HOll 

ENDIF 

IF(  NLAM  .EQ.  3)  THEN 
LAMB  =  LAMBDA(3) 

H0-H020 

ENDIF 

IF(  NL.\M  .EQ.  4)  THEN 
LAMB  *  LAMBDA(4) 

H0=H027 

ENDIF 

ENDIF 

Omitting  temperatures  and  visual  magnitudes  which  are  not 
matchable 

IF  (  TEMP  .LT.  2000.  .OR.  TEMP  .GT,  28000.)  GO  TO  99 
IF  {  VMAG(ICNT)  .EQ.  0 . )  GO  TO  99 
I COUNT* 1 
TMAX-26000 . 

DELT-2000. 

CONTINUE 

IF  (TMAX  .LT.  4000.)  GO  TO  20 
IF  (TEMP  .GT.  TMAX  )  GO  TO  40 
TMAX-  TMAX  -  DELT 
I COUNT- I COUNT  +  1 
GO  TO  10 

CONTINUE 
TMAX-  3000. 

DELT-  1000. 

I COUNT- 13 

CONTINUE 

IF  (TEMP  .GT,  TMAX)  GO  TO  40 
TMAX-TMAX-DELT 
ICOUNT-ICOUNT+1 
GO  TO  30 

CONTINUE 

RATIO  -  (TEMP  -  TMAX) /DELT 

H0PEAK-( (RAD( IC0UNT)-RAD( ICOUNT+1) ) *RATIO)+RAD( ICOUNT+1) 

Solving  for  Spectral  irradiance 

HPEAK-  HOPEAK  *  ( 10 . ** ( -VMAG( ICNT)/2 . 5 ) ) 

Q  -  C2  /  (LAMB  *  TEMP) 
yO-EXP(Q) 


o  o  »  no  no 


HINT  -  (HPEAK  *  (Q**5))/{C1  *  (EXP(Q)-l)) 


C  This  is  the  SAO  Magnitude  of  the  star  at  a  wavelength  that 
C  corresponds  with  the  AFGL  star 

IF ( HINT/HO. LE.O)GO  TO  99 

Checking  to  see  if  sriAG  is  near  IRMAG 

IRMAG  is  the  AFGL  IR  magnitude  4.2,11.0,20.0,27.0 

MAGMAX=IRMAG+2 . 

MAGMIN-IRMAG-2. 

IF  (SMAG  .GT.  MAGMAX  .OR.  SMAG  .LT.  MAGMIN)  GO  TO  99 

1  I  I ! I  I  1  I ! ! I ! ! ! ! I  We  have  a  match  I ! ! I ! ! 1! ! !  I  !  !  1  !  1  !  !  t  I  i 
Calculating  the  Spectral  irradiance  over  all  wavelengths 

SUM=  SIGMA  *  (TEMP**4) 

SF-  (C4*10000.*HPEAK)/( ( TEMP**5 ) *C3 ) 

SRAD-SF*SUM 
MATCH- 0 

GO  TO  100 

99  CONTINUE 

MATCH- 1 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  RADIANCE ( T , SRAD , TRAD ) 

This  subroutine  converts  spectral  irradiance  into  readings 
in  appropriate  wavelengths  tbetween  4  and  12 


REAL* 4  TRAD,LAM,T4,T12,LAM4A,LAM12A,P4,P12,MMK(93) 

REAL* 4  ELAM(93) 

INTEGER  ICNT 

DATA  MMK/555. 6, 666. 7, 777. 7, 888. 9, 1000. 0,1111. 1,1222. 2, 

+  1333.3,1444.4,1555.6,1666.7,1777.8,1888.9,2000. , 

+  2111.1,2222.2,2333.3,2444.4,2555.6,2666.7,2777.8, 

+  2888.9,3000.0,3111.1,3222.2,3333.3,3444.4,3555.5, 

+  3666.6,3777.7,3888.8,4000.0,4111.1,4222.2,4333.3, 

+  4444.4,4555.6,4666.7,4777.8,4888.9,5000.0,5111.1, 

+  5222.2,5323.3,5444.4,5555.6,5666.7,5777.8,5888.9, 

+  6000.0,6111.1,6222.2,6333.3,6444.4,6555.6,6666.7, 

+  6777.8,6888.9,7000.0,7111.1,7222.2,7333.3,7444.4, 

+  7555.6,7666.7,7777.8,7888.9,8000.0,8111.1,8222.2, 

+  8333.3,8888.9,9444.4,10000. ,10555.6,11111.1,11666.7, 

+  12222.2,12777.8,13333.3,13888.9,14444.4,15000.0, 

+  15555.6,16111.1,16666.7,22222.2,27777.8,33333.3, 

+  38888.9,44444.4,50000.0,55555.6/ 

DATA  ELAM/. 0000000170, .000000756, .0000106, .0000738, .000321, 
+  .00101, .00252, .00531, .00983, .01643, .02537,  .03677, 

+  .05059, .06672, .08496, .10503, .12665, .14953, .17337, 

+  .19789, .22285, .24803, .27322, .29825, .32300,  .34734, 

+  .37118, .39445,. 41708, .43905, .46031, .48085, .50066, 
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+  .51974, .53809, .55573, .57267, .58891, .60449, .61941, 

+  .63371, .6474  0, .66051,  .67305, .68506, .69655, .70754, 

+  .71806, .72813, . 73777 ,. 74700 ,. 75583 ,. 76429 ,. 77238 , 

+  .78014, .78757, . 79469 ,. 80152 ,. 80806 ,. 81433 ,. 82035 , 

+  .82612, .83166, .83698, .84209, .84699, .85171, .85624, 

+  .86059, .86477, . 86880 ,. 88677 ,. 90168 ,. 91414 ,. 92462 , 

+  .93349, .94104, .94751, .95307, .95778, .96207, .96572, 

+  .96892,-97174, . 97423 ,. 97644 ,. 98915 ,. 99414 ,. 99649 , 

+  .99773, .99845, .99889, .99918/ 

C  Converting  temperatures  to  appropriate  wavebands 

T4  =  T*4 
T12=  T*12 

C  Interpolating  for  4  microns 

DO  44  ICNT=1,93 

IF(MMK( ICNT) .EQ.T4 )THEN 
LAM4A=ELAM( ICNT) 

GO  TO  33 
END  IF 

IF{MMK( ICNT) .GT.T4 )THEN 

P4=( (ELAM( ICNT)-ELAM{ ICNT-1) ) * ( MMK ( ICNT ) -T4 )/ 

+  {MMK( ICNT) -MMK( ICNT-1 )) ) 

LAM4A-ELAM( ICNT)-P4 
GO  TO  33 
END  IF 

44  CONTINUE 

C  Interpolating  for  12  microns 

33  DO  22  JCNT=1,93 

IF{T12.GT.MMK(93) )THEN 
LAM12A-1. 

GO  TO  12 
END  IF 

IF(MMK(JCNT) .EQ.T12)THEN 
LAM12A-ELAM( JCNT) 

GO  TO  11 
END  IF 

IF(MMK(  JCNT) .GT.T12)THEN 

Pl2-( (ELAM( JCNT)-ELAM( JCNT-1) )*(MMK( JCNT)-T12)/ 

+  (MMK( JCNT)-MMK( JCNT-1) ) ) 

LAM12A-ELAM( JCNT)-P12 
GO  TO  12 
ENDIF 

22  CONTINUE 

12  CONTINUE 

This  sights  the  difference  in  the  two  interpolated  wavelengths 
and  finds  the  appropriate  spectral  irradiance  • 

LAM«LA:112A'LAH4A 
TRAD-  LAM*SRAD 

11  CONTINUE 

RETURN 
END 
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C  This  allows  the  SAO  map  to  be  read  in  by  array  of  up  to  30000  elements 


CHARACTER*!  SPECT,SUBSP,VMA 

INTEGER  SAON, FILECNT , <X 

CHARACTER*  20  SAO , PRI , SUP , OUT , BAND , DEND 

REAL *4  VMAG, IRMAG, TEMP , IRM4 , IRMll , IRM20 , IRM27 , PH, TRAD 

CHARACTER*2  EM4 , EMll , EM20 , EM27 , ANS 

NCOUNT-0 

C  This  defines  the  files  which  are  opened 

DO  777  PILECNT-1,18 
I F ( FILECNT . EQ . 1 ) THEN 

SAO=  '(STARS1SA085.DAT' 

DEND* ' { STERRETT . STARSTUFF  J  SAORAD85 . DAT ' 

GO  TO  1 
END  IF 

I F { F I LECNT . EQ . 2 ) THEN 
SAO*  '[STARS1SA075.DAT' 

DEND- ' [ STERRETT . STARSTUFF  J  SAORAD7  5 . DAT ' 

GO  TO  1 
END  IF 

I F ( FILECNT . EQ . 3 ) THEN 
SAO*  ' ( STARS  1 SA06  5 . DAT ' 

DEND- ' ( STERRETT , STARSTUFF ] SAORAD6  5 . DAT ' 

GO  TO  1 
ENDIF 

I F ( FILECNT . EQ . 4 ) THEN 
SAO-  '[STARSISA055.DAT' 

DEND- '  {  STERRETT .  STARSTUFF )  SA  7RA.D5 5 .  DAT ' 

GO  TO  1 
ENDIF 

I F ( F I LECNT . EQ . 5 ) THEN 
SAO-  ' (STARS JSA045,DAT' 

DEND- ' ( STERRETT. STARSTUFF ] SAORAD45 . DAT' 

GO  TO  1 
ENDIF 

IF( FILECNT. EQ. 6) THEN 
SAO-  '{STARS1SA035.DAT' 

DEND- ' ( STERRETT . STARSTUFF  J  SAORAD3  5 . DAT ' 

GO  TO  1 
ENDIF 

I F ( FILECNT . EQ . 7 ) THEN 
SAO-  '(STARSJSA025.DAT' 

DEND- ' t  STERRETT. STARSTUFF  J  SAORAD25 . DAT' 

GO  TO  1 
ENDIF 

I F ( FILECNT . EQ . 8 ) THEN 
SAO-  '(STARSISA015.DAT' 

DEND- ' ( STERRETT . STARSTUFF  J  SAORADl 5 . DAT ' 

GO  TO  1 
ENDIF 

IF( FILECNT. EQ. 9 )THEN 
SAO-  '(STARSlSAO05.DAT' 

DEND- ' [ STERRETT . STARSTUFF ] SAORAD05 .  DAT ' 

GO  TO  1 

ENDIF 

I F ( FILECNT . EQ . 1 0 ) THEN 
SAO-  ' (STARS) SAO -05. DAT' 

DEND- ' ( STERRETT . STARSTUFF } SAORAD-05.DAT' 

GO  TO  1 
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ENDIF 

IF( FILECNT.EQ.il) THEN 
SAO-  ' [ STARS ) SAO-1 5 . DAT ' 

DEND- ' ( STERRETT . STARSTUFF ) SAORAD-1 5 . DAT ' 

GO  TO  1 
ENDIF 

IF{FILECNT.EQ.12)THEN 
SAO=  ' (STARS) SAO- 2 5. DAT' 

DEND= ' [ STERRETT . STARSTUFF ] SAORAD-25 . DAT ' 

GO  TO  1 
ENDIF 

I F ( FI LECNT . EQ . 1 3 ) THEN 
SAO=  '(STARS1SA0-35.DAT' 

DEND- ' [ STERRETT . STARSTUFF ) SAORAD- 3  5 . DAT ' 

GO  TO  1 
ENDIF 

I F ( F I LECNT . EQ . 1 4 ) THEN 
SAO=  '(STARS1SA0-45.DAT' 

DEND» ' ( STERRETT . STARSTUFF ) SAORAD-4  5 . DAT ' 

GO  TO  1 
ENDIF 

IF(FILECNT.EQ.15)TEEN 
SAO-  '[STARSlSAO-55.DAT' 

DEND- ' [ STERRETT . STARSTUF  F ) SAORAD-55 . DAT ' 

GO  TO  1 
ENDIF 

IF( FILECNT.EQ.16 )THEN 
SAO-  ' (STARS) SAO- 6 5. DAT' 

DEND- ' ( STERRETT . STARSTUFF ) SAORAD-6  5 . DAT ' 

GO  TO  1 
ENDIF 

I F ( FI LECNT . EQ . 1 7 ) THEN 
SAO-  ' (STARS) SAO- 7 5. DAT' 

DEND- ' ( STERRETT . STARSTUFF ) SAORAD-7  5 . DAT ' 

GO  TO  1 
ENDIF 

IF(FILECNT.EQ.18)THEN 
SAO-  ' (STARS) SA0-85.DAT' 

DEND- ' ( STERRETT . STARSTUFF ) SAORAD-85 . DAT ' 

END  IF 

Defining  File  Numbers 

DATA  NSAO,NPRI,NSOP,NOUT,NEND  /lO , 20 , 30 , 40 , 50/ 

1  OPEN(NSAO,FILE-SAO, STATUS- 'OLD' , READONLY) 

OPEN ( NEND , FI LE-DEND , STATUS- ' NEW' ) 

Defining  constants 

DATA  PI,  Cl,  C2  /3. 141592654,  3.7415E+04,  1.43879E+04/ 

This  loop  reads  in  the  SAO  map  in  an  array  for  comparison 

WRITE(*,*)'  READING  IN  SAO  MAP . . . ' , FILECNT 
DO  299  11-1,27000 

25  FORMAT(I7,A1,F10.5,A1,F11.5,1X,F4.1,1X,F4.1,A1,A1,1X,A1, 

+  A1,A1,A2,A1,F10.8,F11.8) 

READ ( NSAO  ,25,  END-299  )  SAON ,  B ,  SRA,  SND ,  SDEC ,  PH ,  VMAG , 

+  SPECT , SOBSP , DV , VMA , PMA , C I 1 , Cl 2 , SRAR , SDECR 

ICNT-II 


9-48 


o  o  o 


C  Calculating  the  actual  temperature  of  the  star  from  the  spectral 
C  class  and  subclass 

CALL  TEMPER(SPECT,SUBSP,T,II ) 

IF  (T  .EQ.  0. )  GO  TO  44 

C  This  subroutine  calculates  spectral  irradiance  over 

C  all  wavelengths. 

CALL  MAG ( NLAM , VMAG , T , SRAD , MATCH , J , HPEAK ) 

C  If  match  =  0  then  match  is  established 

IF  (  MATCH  .EQ.  1  )  GO  TO  44 

C  This  subroutine  computes  spectral  irradiance  between  two 

C  given  wave  bands .... lambdal  and  lambda2 

76  CALL  RADIANCE(T,SRAD,SRAD2) 

C  Finally,  all  star  data  is  written  to  a  file 

20  FORMAT(1X,I6,1X,F10.5,1X,F10.5,1X,F10.1,1X,A1,1X, 

+  A1,1X,F4.1,E12.5) 

IF  (SRAD2  .GT.  l.OE-15)  THEN 
NCOUNT-NCOUNT+1 

WRITE(NEND,20 )  NCOUNT,SRA,SDEC,T, SPECT, 

*  SUBSP,VMAG,SRAD2 

END  IF 


44 

CONTINUE 

99 

CONTINUE 

299 

CONTINUE 

777 

CONTINUE 

WRITE( *, *)NCOUNT 
STOP 

END 

(;***************>mr**************r*****ilt*l>**********»***t*)V  ****** 

SUBROUTINE  TEMPER( SPECT , SUBSP , TEMP , ICNT ) 

Spectral  Class  and  Subclass  (SPECT  and  SUBSP)  characters  are  read 
from  the  SAO  Catalog.  The  classes  correspond  to  Temperatures,  The 
temperatures  can  be  determined  from  the  tables. 

CHARACTER*!  CLASS (11 ) , SBCLASL( 11 ) , SCLASS( 6 ) , SPECT, 

+  SUBSP 

REAL *4  TEMP 

REAL  TEMPN(11,11) ,TEMPO(6) ,TEMPMN(6) 

DATA  CLASS  /'O' , 'B' , 'A' , 'F' , 'G' , 'K' , 'M' , 'N' , 'S' ,  R' , 'C'/ 

C  DATA  CLASS  /'O' , 'B' , 'A' , 'F' , 'G' , 'K' , 'M' , 'R' , 'C'  'N','S'/ 

DATA  SBCLASS  /'O' , '1' , -2' , '3' , '4' , '5' , '6' , '7'  '8'. '9','  '/ 

DATA  SCLASS  /'A' , 'B' , 'C' , 'D' , 'E' , 'F'/ 

C  This  table  plots  temperatures  with  class  verses  sululass: 

DATA  TEMPN/50000. , 22000 ., 10800 . ,7400. ,5900. ,5000. , 3fc00. , 

+  5200. ,5200. ,3600. ,3600. , 

+  45000. ,20000. ,10000. ,7200. ,5800. ,4800. ,3400. ,50; 0. , 
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+  5000. ,  3400. ,  3400.  , 

+  45000. ,18000. ,9800. ,7000. ,5700. ,4600. ,3200. ,4900. , 

+  4900. ,3200. ,3200. , 

+  40000. ,16000. ,9400. ,6800. ,5600. ,4500. , 3100. ,4700. , 

+  4700. ,3100. ,3100. , 

+  36000. ,15000. ,8900. ,6700. ,5600. ,4300. ,2900. ,4200. , 

+  3900. ,2900. ,2900. , 

+  36000. ,14  000. ,8500. , 6500 ., 5500 ., 4200 .,  2700  .  ,3900.  , 

+  3700. ,2700. ,2700.  , 

33000.  ,13000.  ,8300.  ,6400.  ,5400.  ,4000.  ,2600.  ,3700.  , 

+  3300. ,2600. ,2600.  , 

+  28000. ,12500. ,8000. ,6200. ,5300. ,3900. ,2400. ,3500. , 

+  3100. ,2400. ,2400. , 

+  26000. ,11700. ,7800. ,6100. ,5200. ,3800. ,2300. ,3200. , 

+  3000. ,2300. ,2300. , 

+  24000. ,113000. ,7600. ,6000. ,5100.  ,3700.  ,2100.  ,3100.  , 

+  2500. ,2100. ,2100.  , 

+  28000. ,20000. ,10800. ,7400. ,5900. ,4800. , 3200 ., 5100 .  , 

+  5100. ,3200. ,3200./ 

C  This  is  extra  table  information  for  a  higher  subclass. 

DATA  TEMPMN/  3200  .,  2900  .,  2700 .,  2600 .,  2.,00  .,  2400 . 0/ 

C  This  routine  finds  temperature  based  on  spectral  type. 

DO  100  1=1,11 

IF  (CLASS(I)  .EQ.  SPECT)  GO  TO  11 
100  CONTINUE 

GO  TO  56 
11  CONTINUE 

DO  200  J=l,ll 

IF  (SBCLASS(J)  .EQ.  SUBSP)  GO  TO  22 
200  CONTINUE 

DO  300  K-1,6 

IF  (SCLASS{K)  .EQ.  SUBSP)  GO  TO  33 
300  CONTINUE 

GO  TO  56 
22  CONTINUE 

TEMP-  TEMPN(I,J) 

GO  TO  55 

33  CONTINUE 

TEMP-  TEMPMN(K) 

GO  TO  55 
44  CONTINUE 

56  TEMP-0.0 

55  CONTINUE 

RETURN 
END 

SUBROUTINE  MAG { NLAM , VMAG , TEMP , SRAD , MATCH , I CNT , 

+  HPEAK ) 

Using  effective  temperatures  to  calculate  pea)c  irradiance 
magnitudes . 

INTEGER  NLAM,  MATCH,  NEND 
CHARACTER* 20  DEND 
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REAL*4  LAMBDA(4),  LAMB 

REAL*4  HPEAK, RATIO, RAD (16 ) , TEMP , TMAX , DELT 
REAL*4  Cl,C2,C3,C4,Q,H0,MAGMAX,MAGMIN,IRMAG 
DATA  C1,C2,C3,C4  /  21.199,  14387.9,  3.743E+08,  2.9085E+19/ 
DATA  SIGMA  /  5.669E-12/ 

DATA  LAMBDA/  4.2,11.0,20.0,27.0/ 

DATA  H04,H011,H020,H027/  3 . 6E-15 , 8 . 7E-17 , 8 . 2E-18 , 2 . 5E-18/ 

DATA  RAD  /I . 2E-10 , 1 . OE-1 0 , 7 . 3E-11 , 6 . OE-11 , 4 . OE-11 , 3 . OE-11 , 

2 . 2E-11 , 1 . 6E-1 1 , 1 . OE-11 , 7 . OE-12 , 4 . OE-12 , 2 . OE-12 , 
4.1E-12,1.2E-11,6.0E-11,6.0E-11/ 

C  COMMON/ERR/XX 

This  pairs  the  wavelength  '*.2,  11,  20,  or  27  with  appropriate 
spetral  irradiance  nu‘  r  (Table  4) 

IF(  NLAM  .EQ.  DTHEN 
LAMB  »  LAMBDA(l) 
no-  H04 
ELSE 

IF(  NLAM  .EQ,  2)  THEN 
LAMB  -  LANBDA(2) 

HO-HOll 
END  IF 

IF(  NLAM  .EQ.  3)  THEN 
LAMB  -  LAMBDA(3) 

H0*H020 
END  IF 

IF(  NLAM  .EQ.  4)  THEN 
LAMB  -  LAMBDA(4) 

H0-H027 
END  IF 
END  IF 

Omitting  temperatures  and  visual  magnitudes  which  are  not 
matchable 

IF  (  TEMP  .LT.  2000.  .OR.  TEMP  .GT.  28000.)  GO  TO  99 
IF  (  VMAG  .EQ.  0.)  GO  TO  99 
I COUNT* 1 
TMAX*26000. 

DELT-2000. 

10  CONTINUE 

IF  (TMAX  .LT.  4000.)  GO  TO  20 
IF  (TEMP  .GT.  TMAX  )  GO  TO  40 
TMAX-  TMAX  -  DELT 
I COUNT- I COUNT  +  1 
GO  TO  10 

20  CONTINUE 

TMAX-  3000. 

DELT-  1000. 

ICOUNT-13 

30  CONTINUE 

IF  (TEMP  .GT.  TMAX)  GO  TO  40 
TMAX-TMAX-DELT 
ICOUNT-ICOUNT+1 
GO  TO  30 
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40  CONTINUE 

RATIO  -  (TEMP  -  TMAX)/DELT 

H0PEAK-( (RAD( ICOONT)-RAD( ICOUNT+1 ) ) *RATIO ) +RAD ( ICOUNT+1) 

C  Solving  for  Spectral  irradiance 

HPEAK-  HOPEAK  *  { 10 . ** ( -VMAG/2 . 5 ) ) 

C  Calculating  the  Spectral  irradiance  over  all  wavelengths 

SUM-  SIGMA  *  (TEMP**4) 

SF-  (C4*10000.  *HPEAK)/(  (  TEMP**5 )  ■'CS  ) 

SRAD-SF*SUM 
MATCH- 0 

GO  TO  100 


99 

CONTINUE 

MATCH- 1 

100 

CONTINUE 

RETURN 

END 

*********************************************************************** 
SUBROUTINE  RADIANCE ( T , SRAD , SRAD2 ) 

This  subroutine  converts  spectral  irradiance  for  all  wavelengths 
to  the  appropriate  spectral  irradiance  between  lambdal  and  lambda2 


REAL* 4  TRAD,LAM,T4,T12,LAM4A,LAM12A,P4,P12,MMK(93) 

REAL* 4  ELAM(93) 

INTEGER  ICNT 

DATA  MMK/555. 6, 666. 7, 777. 7, 888. 9, 1000. 0,1111. 1,1222. 2, 

1333.3.1444.4.1555.6.1666.7.1777.8.1888.9.2000. , 
2111.1,2222.2,2333.3,2444.4,2555.6,2666.7,2777.8, 
2888.9,3000.0,3111.1,3222.2,3333.3,3444.4,3555.5, 
3666.6,3777.7,3888.8,4000.0,4111.1,4222.2,4333.3, 
4444.4,4555.6,4666.7,4777.8,4888.9,5000.0,5111.1, 
5222.2,5333.3,5444.4,0555.6,5666.7,5777.8,5888.9, 
6000.0,6111.1,6222.2,6333.3,6444.4,6555.6,6666.7, 
6777.8,6888.9,7000.0,7111.1,7222.2,7333.3,7444.4, 
7555.6,7666.7,7777.8,7888.9,8000.0,8111.1,8222.2, 

8333.3.8888.9.9444.4.10000. . 10555.6.11111.1.11666.7, 
12222.2,12777  .£,13333.3,13888.9,14444.4,15000.0, 
15555.6,16111.1,16666.7,22222.2,27777.8,33333.3, 
38888.9,44444.4,50000.0,55555.6/ 


DATA  ELAM/. 0000000170,  .000000756, .0000106, .0000738, .000321, 
.00101, .00252, .00531, .00983, .01643, .02537,  .03677, 
.05059, .06672,  .08496, .10503, .12665, .14953, .17337, 
.19789,  .22285,  .2480’  ... 27322 ,. 29825 ,.  32300 ,  .34734, 
,37118, .39445, .417C>  ,. 43905 ,. 46031 , ,48085, .50066, 
.51974, .53809,  .55573, .57267, .58891, .60449, .61941, 
,63371 , .64740, . 66051 ,. 67305 ,. 68506 ,. 69655 ,  .70754, 
.71806, .72813,  .73777, .74700, .75583, .76429, .77238, 
.78014, .78757,  .79469, .80152, .80806, .81433, .82035, 
.82612, .83166,  .83698, .84209, .84699, .85171,  .85624, 
.86059, .86477,  .86880, .88677, .90168, .91414, .92462, 
.93349, .94104,  .94751, .95307, .95778, .96207, .96572, 
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.96892, .97174, .97423, .97644, .98915, .99414, .99649, 
.99773, .99845, .99889, .99918/ 


C  Converting  temperatures  to  appropriate  wavebands 

T1«T*.5 

T2-T*.9 

C  Interpolating  for  lambdal 

DO  44  ICNT»1,93 

1F(MMK{  ICNT)  .EQ.TDTHEN 
LAM4A-ELA«( ICNT) 

GO  TO  33 
END  IF 

IF{MMK( ICNT) .GT.Tl )THEN 

P4-( (ELAM(ICNT)-ELAM(ICNT-l) ) * ( MMK ( ICNT ) -Tl ) / 

+  (MMK(ICNT)-MMK( ICNT-1) ) ) 

LAM4A-ELAM( ICNT)-P4 
GO  TO  33 
END  IF 

44  CONTINUE 

C  Interpolating  for  lainbda2 

33  DO  22  JCNT-1,93 

IF(T12.GT.MMK(93) )THEN 
LAM12A»1 . 

GO  TO  12 
END  IF 

IF(MMK( JCNT) .EQ.T2)THEN 
LAM12A-ELAM( JCNT) 

GO  TO  11 
END  IF 

IF(MMK( JCNT) .GT.T2)THEN 

P12«( (ELAM( JCNT)-ELAM( JCNT-1) )*(MMK( JCNT)-T2)/ 

+  (MMK(JCNT)-MMK(JCNT-l))) 

LAM12A«ELAM( JCNT)-P12 
GO  TO  12 
END  IF 

22  CONTINUE 

12  CONTINUE 

This  sights  the  difference  in  the  two  interpolated  wavelengths 
and  finds  the  appropriate  spectral  irradiance 

LAM-LAM12A-LAM4A 
SRAD2-LAM*SRAD 

11  CONTINUE 

RETURN 
END 
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NUMBER  OF  STOPS  VS  WAVELENGTH 

NEFD-5.0E-16  WRTTS/CM/MICRON  (.2  BRNO) 


WAVELENGTH  (MICRONS) 


NUMBER  or  STARS  VS  NEPD 

.7  MICRONS  1.2  BRNO) 
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TERMS 


AFGL  -  Air  Force  Geophysics  Lab 

Alpha  -  program  written  by  Nicki  Cook  to  organize  the 
500  brightest  stars  alphabetically  by  constellation 
and  descending  magnitude. 

Beta  -  program  written  by  Nicki  Cook  to  organize  the 
Alpha  data  files  according  to  constellation  groupings 
and  descending  visual  magnitude 

declination  -  the  angular  distance  of  a  celestial  body 
north  or  south  from  the  celestial  equator 

D.U.M.B.O.  -  program  (based  on  Rockwell  International 
algorithms)  written  by  Laura  Sterrett  and  modified  by 
Tim  Poth  and  Nicki  Cook  to  compare  stars  on  the  SAO 
and  RAFGL  star  maps,  check  for  matches  in  position 
and  visual  magnitude,  compute  total  spectral 
irradiance,  and  find  the  spectral  irradiance  in  a 
particular  waveband 

HSAP  -  High  School  Apprenticeship  Program 

N.E.F.D.  -  Noise  Equivalent  Flux  Density 

right  ascension  -  the  angular  distance  of  the  hour 
circle  of  a  celestial  body  from  the  vernal  equinox, 
measured  eastward  along  the  celestial  equator  and 
expressed  in  degrees  (  from  0  to  360)  or,  more 
commonly,  in  hours  (from  0  to  24),  minutes,  and 
seconds 

SAI  -  Guided  Interceptor  Branch  in  the  Strategic 
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Analysis  division 


SAIC  -  Science  Applications  international  Corporation 

SETA  -  Scientific  and  Engineering  Technical  Assistant 

uranogtaphic  -  dealing  with  the  branch  of  astronomy 
concerned  with  the  description  of  the  heavens  and  the 
mapping  of  the  stars 

SAO  -  Smithsonian  Astrophysical  Observatory 

S.A.S.S.E.  -  the  title  of  Nicki  Cook's  project  for  the 
1990  summer  HSAP;  it  stands  for  "Star  Availability 
for  Sensor  -  Specific  Evaluation 

spectral  irradiance  -  total  energy  emitted  in  all 
wavelengths  (usually  light  energy) 

spectral  type  -  system  invented  by  Anne  Cannon  at 
Harvard  which  uses  letter/number  pairs  to  identify 
the  temperature  and  color  of  a  star 

star  addresses  -  phrase  coined  which  refers  to  the 
identifying  names  and  symbols  of  a  star, 
specifically:  constellation  name,  Greek  letter,  and 

star  name 

visual  magnitude  -  brightness  judged  by  the  response  of 
the  human  eye 
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Introduction 


X  . 

This  summer  was  the  first  and  last  summer  1  worked  in  the 
High  School  Apprenticeship  Program  I  worked  in  the  Warheads  B 
Branch  of  the  Munitions  Division  of  Eglin  AFATL,  or  MNW  for 
short.  My  summer  job  was  invaluable  to  me  as  a  learning 
experience  in  both  computer  sciences  and  life  in  general.  My 
mentor,  Michael  E  Nixon,  and  ray  other  coworkers  taught  me  more 
this  summer  than  all  my  years  in  high  school  about  working  in  a 
professional  environment  and  preparing  for  life  in  the  "Real 
World. " 

II.  Acknowledgements 

I  would  like  to  thank  all  the  people  who  helped  me  this 
summer  with  my  project  and  my  other  jobs.  My  fellow  apprentices 
all  made  the  days  more  enjoyable,  especially  Ken  Gage,  my 
coworker  who  "showed  me  the  ropes"  at  MNW.  I'd  also  like  to 
rhaisk  Lori  Perillo  and  Bizhan  Aref  for  taking  care  of  Ken  and  me 
while  our  mentor  was  out  of  town.  Bill  Cook,  Capt.  Rich  Cuba,  A1 
Weimorts,  and  David  Wagnon  all  graciously  loaned  me  their 
workstations  during  the  summer  so  that  I  could  write  and  run  all 
my  programs.  My  constant  sources  of  personal  computing  advice 
were  Darren  Boisjolie  and  Capt.  Ernie  Staubs.  I'd  also  like  to 
thank  those  who  are  in  charge  of  the  HSAP  program  for  giving  me 
the  chance  to  participate  in  such  a  wonderful  summer  experience. 
But  most  of  all  I  thank  my  mentor,  Michael  Nixon,  for  giving  me  a 
great  summer  and  lots  of  good  advice  about  life,  the  universe, 
and  everything. 
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III.  Munitions-Warheads  Division  (MNW) 

MNW  is  the  warheads  branch  of  the  munitions  division.  It  is 
composed  of  several  smaller  teams.  The  first  is  the  lethal 
mechanics  team,  which  makes  sure  a  warhead  kills  its  target.  The 
warhead  mechanics  team  develops  the  mechanical  aspects  of  a  bomb. 
The  AWEF  (Advanced  Weapons  Evaluation  Facility)  will  test 
warheads  of  heavy  metals,  such  as  depleted  uranium,  once  it  is 
opened  and  put  into  action.  The  last  team  of  MNW  is  the 
computational  mechanics  team,  in  which  I  worked  this  summer.  The 
job  of  this  team  is  to  run  computer  simulations  of  warhead 
impacts  on  targets,  which  are  then  compared  to  the  actual  tests 
run  by  the  other  MNW  teams. 

IV.  Background  of  Research  Project 

My  mentor  is  planning  to  leave  Eglin  temporarily  at  the  end 
of  this  summer  to  attend  graduate  school  at  the  University  of 
Florida.  My  project  was  to  prepare  those  taking  over  his  duties 
to  do  so  easily  and  quickly.  One  of  Mr  Nixon's  duties  at  Eglin 
is  the  management  of  the  distribution  of  EPIC  Hydrocode  software, 
and  my  job  was  to  create  a  databse  program  to  make  it  easier  for 
someone  to  access  and  edit  the  distribution  files  of  EPIC.  The 
results  of  my  summer  work  can  be  seen  in  the  documentation  of  the 
program  that  I  wrote,  which  is  included  in  the  following  pages  of 
this  report. 

V.  Documentation  and  Results 


10-3 


Database  File  System  Documentation 

The  purpose  of  this  dBase  program  is  to  organize  and  allow 
easy  access  to  the  contractor,  university,  and  government  files 
of  EPIC  Hydrocode  distribution.  This  program  is  user  friendly, 
and  the  menus  will  help  you  through  the  program,  but  this 
documentaion  also  contains  some  things  you  need  to  know. 

Use  of  the  File  System 

The  first  step  in  using  this  program  is  loading  it.  You  may 
need  to  transfer  tne  files  for  this  program  from  a  floppy  disk 
onto  the  hard  drive  of  the  workstation  you  plan  to  use.  Place 
the  floppy  in  the  "A"  drive,  and  use  the  "COPY"  command  to 
transfer  the  files  into  the  dBase  directory.  (Type  "cd  dbase 
(return)"  to  change  to  the  dbase  directory). 

Example;  copy  A:epicc.*  C;epicc.*  (return) 

The  names  of  the  files  you  need  to  copy  are: 
epicc.*  name.* 

epicg.*  name2.* 

epicu.*  name3.* 

dbepic. * 

After  copying  these  files  type  "dbase  (return)"  and  you'll  be  in 
dBase. 

Once  you  get  into  dBase,  you  need  to  get  to  the  dot  prompt. 
Press  the  return  key  to  get  to  the  assist  menu,  then  Esc  to  the 
dot  prompt.  You  can  begin  the  program  here  by  typing 
"do  dbepic  (return)" 
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Once  the  program  begins,  you  will  see  the  mair  menu  of  the 


program,  like  the  one  below: 


EPIC  Distribution  File  Manager 

1.  Access  Contractor  Files 

2.  Access  University  Files 

3.  Access  Government  Files 

4.  Terminate  Session 

ENTER  OPTION: 


Options  1-3  will  show  you  new  menus,  while  option  4  will  end 
the  program  and  take  you  back  out  of  dBase.  Just  press  the  key 
which  corresponds  with  your  choice  of  options,  and  you'll  see  the 
new  menu.  (NOTE:  If  you  press  a  key  which  is  not  one  of  the 
options,  the  dot  prompt  will  return.  Just  type  "do  dbepic 
(return)"  and  the  program  will  start  over.  Do  this  any  time  the 
program  returns  you  to  the  dot  prompt.) 

The  menus  for  contractor,  government,  and  university  files 
are  all  basically  the  same.  An  example  of  the  contractor  menu 
can  be  seen  below. 


Contractor  File  Manager 

1. Edit  Files 

2.  Append  Files 

3.  Print  Files 

4. Search  by  Name 

5. Return  to  Main  Menu 

ENTER  OPTION: 


:>5 


1. Edit  Files;  When  you  choose  this  option,  the  program  shows  you 

the  first  company's  record.  You  can  edit  this  record  by 
typing  over  words  you  want  to  change,  or  you  can  insert 
words  by  turning  on  insert  mode,  by  pressing  the  Ins  key. 

The  symbol  "Ins"  will  appear  at  the  top  of  the  screen  when 
you're  in  insert  mode.  The  keys  on  the  keyboard  work  like 
an  normal  editor-use  the  cursor  keys  or  the  return  key  to 
move  around  in  the  record,  and  to  move  from  record  to  record 
use  the  PgUp  and  PgDn  keys  (you  need  to  hit  the  PgDn  twice 
to  move  to  the  next  record,  but  to  move  to  the  previous 
record  hit  the  PgUp  once) .  When  you  want  to  return  to  the 
menu,  hit  the  Esc  key. 

2.  Append  Files:  This  option  allows  you  to  add  new  records  to 

the  end  of  the  file.  It  automatically  positions  you  on  a 
blank  record  after  the  last  existing  record.  Just  type  in 
your  information  into  the  record,  and  it  is  automatically 
saved  when  you  return  to  the  menu.  If  you  want  to  add  more 
than  one  record,  type  in  the  first,  then  hit  PgDn  twice  and 
you  will  be  given  another  blank  record.  Just  do  this  until 
you  are  finished,  then  hit  Esc  to  return  to  the  menu. 

3.  Print  Files:  This  command  automatically  prints  every  record 

in  the  file  you're  using.  The  files  will  not  be  shown  on 
the  screen,  they  will  only  be  sent  to  the  printer.  Use  this 
option  only  if  you  want  to  print  a  copy  of  all  the  records 
in  a  file.  To  print  one  record  at  a  time,  use  option  1,2, 


or  4  to  get  the  record  you  want  to  print  on  the  screen,  then 
do  a  screen  dump  by  typing  " (shift) (PrScr) . " 

4.  Search:  The  Search  option  allows  you  to  edit  a  specific 

record  without  having  to  scroll  through  all  the  other 
records  in  a  file.  When  you  choose  this  option  you  will  be 
presented  with  a  place  to  type  in  the  name  of  the  company, 
university,  or  government  installation  you  wish  to  see.  (You 
roust  type  in  the  exact  name  that's  already  on  the  record,  or 
the  search  will  be  unsuccessful,  and  you'll  be  re-.urned  to 
the  menu . ) 

5.  Return  to  Main  Menu:  This  option  is  self-explanatory;  it 

returns  you  to  the  main  menu,  where  you  can  go  to  another 
file  or  end  the  program  and  exit  dBase, 


Ending  the  Session 

You'll  need  to  save  all  the  changes  in  information  that  you 
have  made  onto  the  floppy  disk.  After  ending  the  program,  place 
the  disk  in  the  A  drive,  and  execute  the  following  commands: 

"copy  c:epicc.dbf  arepicc.dbf" 

"copy  c:epicg.dbf  a:epicg.dbf" 

"copy  c:epicu.dbf  a:epicu.dbf" 

Make  sure  the  files  were  cooied  by  changing  to  the  A  drive  (type 
"A:  (return)"),  and  doing  a  directory,  "dir  (return)",  and 
checking  for  those  files  in  the  list.  If  they  were  not 
correctly  copied,  do  the  "copy"  over  until  it  works. 
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If  the  hard  drive  on  the  workstation  you  are  using  needs  to 
be  cleaned  up  after  your  session,  just  use  the  "del"  command  to 
remove  all  the  files  you  put  onto  the  disk  at  the  beginning  of 
the  session. 


How  It  Works 


The  file  system  consists  of  one  main  program  (which  creates 
the  main  menu)  and  three  subprog'*'ams  (one  for  contractors,  one 
for  universities,  and  one  for  government  agencies).  Each  of  the 
three  subprograms  has  its  own  subprogram,  which  allows  it  to 
perform  the  search  option.  Hard  copies  of  these  programs  can  be 
seen  on  the  following  pages,  and  they  are  each  followed  by  an 
explanation  of  the  commands  in  that  program. 


DBEPIC.PRG 


set  talk  off  1 

set  bell  off 
set  escape  off 
set  stavus  off 

choice="  ••  5 


do  while  .t. 


choice="  " 

@  3,3  to  14,46  double  10 

@  5,10  say  "EPIC  Distribution  File  Manager" 

@  7,12  say  "1.  Access  Contractor  Files" 

@  8,12  say  "2.  Access  University  Files" 

@  9,12  say  "3.  Access  Government  Files" 

@  10,12  say  "4.  Terminate  Session"  15 

§  12,15  say  "ENTER  OPTION:" 

@  12,29  get  choice 

read 
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do  case 


20 


case  choice  =  "1" 
do  epicc 
close  all 

clear  all  25 

clear 
loop 

case  choice 
do  epicu 
close  all 
clear  all 
clear 
loop 

case  choice 
do  epicg 
close  all 
clear  all 
clear 
loop 

case  choice  =  "4” 
clear 

@  13,23  say  ”  Don't  forget  to  save  your  " 
e  14,23  say  "changes  on  the  floppy  disk!" 
read 

clear  all 
close  all 
clear 
quit 

end  do 

end  do  55 

Lines  1-4  of  the  program  DBEPIC  (standing  for  DataBase 
EPIC) ,  set  the  environment  for  the  program.  The  line  "set  talk 
off"  tells  the  computer  not  to  print  normal  status  messages  on 
the  screen.  Line  2,  "set  bell  off",  turns  off  the  warning  bell, 
"set  escape  off"  tells  the  computer  to  save  edits  instead  of 
abandoning  them  as  it  would  normally  do  when  the  Esc  key  is 
pressed.  Line  4,  "set  status  off",  turns  off  the  command  line 


45 


50 


=  "2" 


=  >13. 


30 


35 


40 
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that  normally  appears  at  the  bottom  of  the  screen  to  tell  you 
what  operational  inodes  you  are  in. 

Line  5  of  the  program  initiates  a  variable  of  character  type 
which  is  one  character  long.  This  is  for  the  option  you  choose 
from  the  menu.  Line  7  tells  the  computer  to  perform  the  tasks 
given  it  as  long  as  the  specified  conditions  are  true:  "do  while 
.t." 

Lies  9-18  set  up  the  first  menu  you  see  when  the  program  is 
run.  They  tell  the  computer  what  to  print  on  which  line  of  the 
screen.  Line  9  once  again  tells  the  computer  to  expect  a  one 
character  variable,  and  line  17  tells  it  to  get  that  variable 
from  the  user  and  proceed  to  the  cases,  which  correspond  with  the 
possible  choices.  "Read"  tells  the  computer  to  read  the 
information  in  the  lines  above  and  execute  it. 

Line  20,  "do  case"  tells  the  computer  that  it  needs  to  do 
one  of  the  following  cases,  based  on  the  choice  the  user  entered 
at  the  menu.  Case  1  tells  the  computer  to  execute  another 
program,  epicc,  which  allows  the  user  access  to  the  contractor 
files.  "Close  all",  "clear  all",  and  "clear"  tell  the  computer 
to  finish  what  it's  doing,  close  everything  up.  and  clear  the 
screen.  "Loop"  causes  the  computer  to  return  to  the  main  menu  to 
receive  another  command  from  the  us.jr.  Cases  2  and  3  do  the  same 
thing  as  Case  l,  except  Case  2  sends  the  computer  to  epicu 
(university  files) ,  and  Case  3  sends  it  to  epicg  (government 
files) . 
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Case  4,  lines  43-51,  makes  the  computer  clear  the  screen, 
print  a  message  to  the  user,  and  then  exit  dBase.  The  do  cases 
are  closed  and  the  program  ends  with  "end  do.” 


EPICC.PRG 


set  talk  off  1 

set  bell  off 
set  escape  off 
set  status  off 

choice=  ”  "  5 

do  while  .t. 
choice  =  "  " 

@  3,3  to  15,46  double  10 

@  5,13  say  "Contractor  File  Manager” 

@7,15  say  ”1.  Edit  Files" 

@  8,15  say  "2.  Append  Files" 

@9,15  say  ”3.  Print  Files" 

@  10,15  say  "4.  Search  by  Name"  15 

@  11,15  say  ”5.  Return  to  Main  Menu” 

@  13,15  say  "ENTER  OPTION;  ” 

@  13,29  get  choice 

read  20 


do  case 

case  choice  =  "1” 

use  epicc  25 

set  format  to  epicc 

edit 

close  all 
clear  all 

clear  30 

loop 

case  choice  =  "2" 
use  epicc 

set  format  to  epicc  35 

append 

close  all 

clear  all 

clear 

loop  40 

case  choice  =  "3" 
use  epicc 
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set  device  to  print 
do  while  .not.  eof{) 

§  3,5  SAY  "COMPANY  NAME:" 

§  3,20  say  CONAME 

@  5,5  SAY  "ADDRESS:" 

@  5,30  SAY  "COMPANY  POC:" 

@  5,55  SAY  "GOVERNMENT  POC:" 

@  6,5  say  ADDRESS 1 

@  6,30  say  CPOCl 

@  6,55  say  GPOCl 

§  7,5  say  ADDRESS2 

@  7,30  say  CPOC2 

@  7,55  say  GPOC2 

e  8,5  say  ADDRESS 3 
§  8,30  say  CPOC3 

@  8,55  say  GPOC3 

@  9,5  say  ADDRESS 4 

@  9,30  say  CPOC4 

§  9,55  say  GPOC4 

@  11,5  SAY  "CONTRACT 

@  11,17  say  CONTRCTNO 

@  11,  35  SAY  "RELEASE  FORM:" 
§  11,  49  say  RELl 
§  12,  5  SAY  "VERSION:" 

@  12,  14  say  VERSION 

@  14,5  SAY  "CORRESPONDENCE:" 

@  15,5  say  CORl 

€  16,5  say  COR2 

@  17,5  say  COR3 

@  18,5  say  COR4 

@  19,5  say  COR5 

@  20,5  say  COR6 

@  21,5  say  COR7 

@  22,5  say  COR8 

@  23,5  SAY  "NOTES:" 

@  24,5  say  NOTl 

skip 
enddo 

set  device  to  screen 

close  all 

clear  all 

clear 

loop 

case  choice  =  "4" 
clear  all 
close  all 
clear 
do  name 

case  choice  =  "5" 
clear  all 
close  all 
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55 


60 


65 


70 


75 


80 


85 


90 


95 
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clear 
do  dbepic 


100 


enddo 

enddo 

The  first  few  lines  of  epicc  (contractor  file  manager)  are 
basically  the  same  as  dbepic-the  program  environment  is 
specified,  and  a  variable  ''choice*'  is  initiated.  A  "do  while" 
loop  is  established,  and  the  computer  then  goes  on  to  the  next 
few  lines,  which  tell  it  to  print  a  menu  on  the  screen,  and 
accept  the  value  of  "choice"  from  the  user.  It  then  goes  on  to 
the  do  cases,  using  the  choice  of  the  user. 

Case  1  tells  the  computer  to  use  the  epicc  dBase  file 
(epicc. dbf)-  which  is  the  same  as  opening  the  file.  It  then  sets 
the  foimat  to  epicc  (epicc. rmt),  which  is  a  customized  screen  for 
the  contractor  records.  The  command  "edit"  tells  the  computer  to 
allow  the  user  to  edit  the  records,  by  positioning  him  or  her  on 
the  first  record  in  the  file,  from  which  the  user  can  scroll 
through  the  whole  dBase  file.  The  rest  of  Case  1  tells  the 
computer  to  close  epicc,  clear  the  screen,  and  return  to  the 
menu. 

Case  2  does  the  same  thing  as  Case  1,  except  it  tells  the 
computer  to  append  the  epicc  file.  It  places  the  user  on  a  blank 
record  which  is  directly  after  the  last  record  in  the  file.  The 
user  can  then  fill  in  that  record  with  new  information,  and  the 
record  is  automatically  added  to  the  file.  The  user  can  add  as 
many  files  as  he  or  she  wishes  before  returning  to  the  menu,  and 
he  or  she  can  also  scroll  back  through  all  of  the  old  records. 
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Case  3  tells  the  computer  to  open  the  contractor  file,  then 
change  the  output  device  from  screen  to  printer,  it  then  tells 
the  computer  to  do  the  following  commands  until  it  reaches  the 
end  of  the  file  ("do  while  .not.  eof()").  Lines  46-80  tell  the 
printer  exactly  what  to  print  on  the  page,  and  81,  "skip",  tells 
the  computer  to  go  to  the  next  record  when  it  reaches  the  end  of 
the  record  it  is  printing.  Then  the  device  is  set  back  to  the 
screen,  and  the  file  is  closed,  the  screen  cleared,  and  the 
computer  returns  to  the  menu. 

Case  4  sends  the  computer  to  a  subprogram,  "name",  which 
tells  it  how  to  search  for  a  specific  company  name.  A 
description  of  name.prg  can  be  seen  following  the  hard  copy  of 
that  program.  Case  5  also  sends  the  computer  to  another  program, 
dbepic.prg,  which  will  bring  the  main  menu  up  to  the  screen.  The 
user  can  then  end  the  editing  session,  or  go  on  to  another 
subprogram,  such  as  epicu.prg  or  epicg.prg.  Again  the  .commands 
"end  do"  end  and  close  the  do  loops  and  the  program. 


EPICU.PRG 


set  talk  off  1 

set  bell  off 
set  escape  off 
set  status  off 

choice="  "  5 


do  while  .t. 
choice  =  "  " 

@  3,3  to  15,46  double  10 

@  5,13  say  "University  File  Manager" 

@  7,15  say  "l.Edit  Files" 

@  8,15  say  "2. Append  Files" 

§  9,15  say  "3. Print  Files" 
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15 


§  10,15  say  "4. Search  by  University  Name” 

§  11,15  say  "5. Return  to  Main  Menu” 

@  13,15  say  "ENTER  OPTION:” 

@  13,29  get  choice 

read 


case  choice  =  "1" 
use  epicu 

set  format  to  epicu 
edit 

close  all 
clear  all 
clear 
loop 

case  choice  =  ”2” 
use  epicu 

set  format  to  epicu 

append 

close  all 

clear  all 

clear 

loop 

case  choice  =  "3” 
use  epicu 

set  device  to  print 
do  while  .not.  eof() 

§  3,5  SAY  "UNIVERSITY  NAME:” 
@3,21  SAY  UNAME 
e  5,5  SAY  "ADDRESS:" 
e  5,30  SAY  "UNIVERSITY  POC:" 
e  5,55  SAY  "GOVERNMENT  POC:” 
@6,5  SAY  ADDRESS 1 
@6,30  SAY  UPOCl 
@  6,55  SAY  GPOCl 
@7,5  SAY  ADDRESS2 
@  7,30  SAY  UPOC2 
@  7,55  SAY  GPOC2 
@  8,5  SAY  ADDRESS3 
@  8,30  SAY  UPOC3 
@  8,55  SAY  GPOC3 
@9,5  SAY  ADDRESS4 
@9,30  SAY  UPOC4 
@  9,55  SAY  GPOC4 
@  11,5  SAY  "CONTRACT?" 
e  11,14  SAY  CONTRCTNO 
@  11,35  SAY  "RELEASE  FORM;" 

@  11,49  SAY  RELl 
@  12,5  SAY  "VERSION;" 

@  12,13  SAY  VERSION 
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@  14,5  SAY  "CORRESPONDENCE:" 

@  15,5  SAY  CORl  70 

@  16,5  SAY  COR2 
@  17,5  SAY  CORl 
e  18,5  SAY  COR4 
@  19,5  SAY  COR5 

§  20,5  SAY  COR6  75 

§  21,5  SAY  COR7 
@22,5  SAY  COR8 
@  23,5  SAY  "NOTES:" 

@24,5  SAY  NOTl 

skip  80 

enddo 

set  device  to  screen 
close  all 
clear  all 

clear  85 

loop 

case  choice  =  "4" 
clear  all 

close  all  90 

clear 

do  name! 

case  choice  =  "5" 

clear  all  95 

close  all 
clear 
do  dbepic 

enddo  100 

enddo 

EPICU.PRG  does  basically  the  same  thing  as  epicc.prg.  The 
only  difference  is  the  file  that  it  gives  access  to:  the 
university  file.  The  menu  is  slightly  different,  as  are  the 
commands  which  tell  the  computer  what  to  print  on  paper  in  case 
3.  This  program  also  has  its  own  subprogram,  names. prg,  to  give 
it  its  searching  ability.  Other  than  those  minor  differences, 
epicu.prg  is  the  same  as  epicc.prg. 
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EPICG . PRG 


set  talk  off 
set  bell  off 
set  escape  off 
set  status  off 
choice  =  "  " 

do  while  .t. 

choice  =  "  " 

@  3,3  to  15,46  double 
@  5,13  say  "Government  File  Manager" 
@  7,15  say  "l.Edit  Files" 

@  8,15  say  "2. Append  Files" 

@  9,15  say  "3. Print  Files" 

@  10,15  say  "4. Search  by  Name" 

@  11,15  say  "5. Return  to  Main  Menu" 

@  13,15  say  "ENTER  OPTION:" 

@  13,29  get  choice 

read 

do  case 

case  choice  =  "1" 
use  epicg 

set  fommat  to  epicg 
edit 

close  all 
clear  all 
clear 
loop 

case  choice  =  "2" 
use  epicg 

set  format  to  epicg 

append 

close  all 

clear  all 

clear 

loop 

case  choice  =  "3" 
use  epicg 

set  device  to  print 
do  while  .not.  eof() 

§  3,5  SAY  "INSTALLATION:" 

@3,18  say  INSTAL 
@4,5  SAY  "BRANCH;" 

@  4,12  say  branch 
@  5,5  SAY  "ADDRESS;" 
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55 


§  5,36  SAY  "POC:" 

@  6,5  say  ADDRESS 1 
§  6,36  SAY  POCl 
e  7,5  say  ADDRESS 2 
@  7,36  say  POC2 
§  8,5  say  ADDRESS3 
@8,36  say  POC3 
@  9,5  say  ADDRESS4 
@  9,36  say  POC4 
@  11,5  SAY  "RELEASE  FORM;" 

@  11,18  say  RELl 
@12,5  SAY  "VERSION;" 

@  12,13  say  VERSION 
@  14,5  SAY  "CORRESPONDENCE:" 
@  15,5  say  CORl 
@  16,5  say  COR2 
@  17,5  say  COR3 
@  18,5  say  COR4 
@  19,5  say  COR5 
@  20,5  say  COR6 
@  21,5  say  COR7 
@  22,5  say  COR8 
@  23,5  SAY  "NOTES:" 

@  24,5  say  NOTl 
skip 
enddo 

set  device  to  screen 

close  all 

clear  all 

clear 

loop 

case  choice  =  "4" 
clear  all 
close  all 
clear 
do  naine2 

case  choice  =  "5" 
clear  all 
close  all 
clear 
do  dbepic 

enddo 

enddo 


60 


65 


70 


75 


80 


85 


90 


95 


EPICG.PRg  is  also  basically  the  same  as  epicc.prg,  except 
for  a  few  small  details,  such  as  screen  format,  printout  format, 
and  its  subprogram,  name2.prg. 
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NAME . PRG 


set  talk  on  1 

set  bell  off 
set  escape  off 
set  status  off 

in_conaine=  space  (50)  5 

do  while  .t. 

m  coname  =  space (50) 

@“3,3  to  7,75  double  10 

@  5,10  say  "Enter  Name;" 

@  5,21  get  m_coname 
read 

use  epicc  15 

set  format  to  epicc 

edit  for  coname  =  m_coname 

close  all 

clear  all 

clear  20 

do  epicc 

Lines  1-4  of  name.prg  set  the  program  environment,  and  line 
5  of  the  program  initiate  a  memory  variable  of  up  to  fifty 
characters.  Line  7  opens  a  do  loop,  which  creates  a  screen  which 
requests  that  the  user  enter  a  company  name.  The  computer 
assigns  that  name  to  a  temporary  memory  variable,  in  this  case, 
m_coname.  It  then  opens  epicc,  sets  the  format  to  epicc,  and 
searches  for  the  file  whose  coname  (company  name)  equals  the 
memory  variable  m_coname.  Once  it  finds  that  record,  it  brings 
it  up  on  screen,  where  the  user  can  edit  it.  If  the  computer 
cannot  make  a  match,  it  returns  to  the  menu  of  epicc.  After  the 
user  is  done  editing,  and  hits  the  Esc  key,  the  computer  saves 
all  edits  and  returns  to  the  epicc  menu. 
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5 


set  talk  on 
set  bell  off 
set  escape  off 
set  status  off 
in_instal=  space  (50) 

do  while  .t. 

m_instal  =  space (50) 

@  3,3  to  7,75  double  10 

0  5,10  say  "Enter  Name:" 

@  5,21  get  m_instal 
read 

use  epicg  15 

set  format  to  epicg 

edit  for  instal  =  in_instal 

close  all 

clear  all 

clear  20 

do  epicg 

The  name2.prg  is  the  same  as  name.prg,  except  it  is  tailored 
to  the  needs  of  the  government  file. 


NAME3.PRG 


set  talk  on  1 

set  bell  off 
set  escape  off 
set  status  off 

m_uname=  space (50)  5 

do  while  .t. 

m_uname  =  space (50) 

@  3,3  to  7,75  double  10 

@  5,10  say  "Enter  Name:" 

@  5,21  get  m_uname 
read 

use  epicu  15 

set  format  to  epicu 
edit  for  uname  =  m  uname 
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20 


close  all 
clear  all 
clear 
do  epicu 

NAME3.PRG  is  the  same  as  name.prg  and  name2.prg,  except  it 
is  the  subprogram  of  epicu. prg. 


This  concludes  the  documentation  of  the  EPIC  Distribution 
Database.  The  follwing  pages  contain  a  list  of  the  names  of 
contractors,  universities,  and  government  agencies  which  must  be 
used  to  successfully  use  the  search  option  of  this  program. 

VI.  Conclusion 

In  conclusion,  this  summer  has  been  a  wonderful  learning 
experience  for  me.  I  learned  how  to  program  computers,  work  in 
an  office  environment,  and  prepare  for  life  in  college  and  the 
workplace.  My  project  has  been  completed,  and  the  transfer  of 
the  management  of  EPIC  distribution  can  be  handled  easily  and 
qux~kly,  that  Mr  Nixon  will  be  able  to  go  to  school  without 
any  worry  aoout  it.  The  documentation  is  also  complete,  so  that 
the  new  EPIC  distribution  manager  will  have  no  problems  using  my 
database  program. 

VII.  Other  Lessons  of  the  Summer 

Not  only  did  I  learn  how  to  program  in  dBase  this  summer,  I 
also  learned  Microsoft  QuickBASIC  and  C.  I  learned  how  to  make 
nine-track  tapes  for  the  distribution  of  the  EPIC  hydrocodes 
using  VAX  systems,  and  how  to  operate  those  systems  to  run  data 
decks  using  EPIC  hydrocode  calculations.  I  also  learned  about 
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what  all  the  other  apprKi.t’ces  were  doing  during  the  summer, 
through  our  discussions  at  luncii.  and  all  the  free  time  that  we 
spent  together  this  summer.  Not  only  did  my  summer  job  give  me 
work  experience,  it  gave  me  many  friends  who  are  almost  like 
family  to  me  now.  If  I  had  the  chance  to  do  it  all  over  again, 
I'd  ask  "When  do  I  start?" 
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INTRODUCTIOT 
Section  I 


3-picrylainino-l,2,4-tria20le  (PATO)  is  a  heterocycle  under 
investigation  as  a  possible  high  energy  insensitive  explosive. 
Preparation  of  PATO  was  conducted  in  10  g  and  100  g  scales.  The  two 
syntheses  were  verified  using  instrumental  analyses.  Physical, 
structural,  sensitivity,  and  explosive  characteristics  of  PATO  were 
determined. 
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BACKGROUND 
Section  III 

Accidental  initiation  of  1.1  hazard  class  munitions  presents  a 
great  threat  to  United  States  Air  Force  facilities.  The  High  Explosive 
Research  and  Development  facility  at  Eglin  Air  Force  Base  is  developing 
high  energy  insensitive  explosives  to  alleviate  this  threat. 

Insensitive  high  explosives  offer  advantages  in  operational  readiness 
and  sustainability  through  reduced  quantity  distance  storage  and 
handling  restrictions  (reference  1).  Munitions  filled  with  such 
explosives  may  be  stored  closer  to  airfields  where  they  are  readily 
available  for  use.  Transportation  of  these  munitions  is  also  less 
hazardous.  Insensitive  munitions  have  a  low  probability  of  reaction 
when  subjected  to  thermal,  impact,  friction,  or  electrostatic  stimuli 
enhancing  their  surviablity.  However,  the  explosive  will  detonate  with 
great  power  upon  initiation  of  its  designed  explosive  train.  Most 
importantly  they  have  low  shock  sensitivity  and  hence  are  non-mass 
detonating. 

Explosives  are  useful  militarily  for  applying  disruptive  energy  to 
a  target  by  converting  chemical  energy  into  kinetic  energy.  Chemical 
energy  is  applied  by  imparting  kinetic  energy  into  high  velocity  case 
fragments  and  e^qsanding  product  gases.  The  combination  of  high  energy 
output  and  insensitivity  to  shock  initiation  are  highly  desirable  but 
difficult  to  obtain  simultaneously  with  the  present  energetic  materials 
available  and  conventional  explosive  formulation  techniques. 

Heterocycles  are  organic  ring  compounds  with  atoms  other  then 
carbon  maJcing  tp  the  skeletal  ring  (reference  3).  Azoles  are  five 
membered  heterocycles  with  one  or  more  nitrogens.  Heterocylcic 
materials  are  ideal  for  insensitive  high  explosives.  Replacement  of 
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carbon  with  nitrogen  provides  the  advantages  of  a  higher  density, 
favorable  oxygen  balance,  and  a  positive  heat  of  format_un.  PtLgh 
density  improves  a  materials  energy  per  unit  volume,  and  hence  its 
performance.  Fuel,  carbon  and  hydrogen,  in  an  ej^losive  reacts  by 
combining  with  oxygen,  producing  carbon  dioxide  and  water.  A  favorable 
oxygen  balance,  where  all  carbon  and  hydrogen  is  consumed  with  oxygen, 
results  in  more  efficient  reactant  to  product  conversion  and  hence 
greater  energy  release.  In  the  heterocycle,  3“picrylamino-l,2,4- 
triazole  (PATO),  nitrogens  replace  the  carbons  that  would  not  have 
reacted  due  to  an  unfavorable  carbon  oxygen  ratio.  In  addition  aromatic 
nitro  linkages  decrease  the  compounds'  sensitivity.  High  energy  from 
the  favorable  oxygen  balance,  high  density,  favorable  heat  of 
formation,  and  insensitivity  from  the  aromatic  nitro  linkage  make 
heterocycles  promising  candidates  for  insensitive  explosive 
applications . 

S-Picrylamino- 1,2, 4-Triazole  (PATO)  was  first  produced  at  the  Los 
Alamos  National  Laboratory  (LANL),  and  was  characterized  as  a  high 
density  insensitive  material  (reference  2).  Its  energy  was 
insufficient  to  meet  nuclear  applications,  hence,  only  preliminary 
testing  was  completed.  The  triazole  in  PA3X)  gives  it  the  advantages  of 
a  heterocycle.  PATO  is  synthesized  by  amination  of  picryl  chloride 
(2, 4, 6-Trinitrochlorobenzene)  with  3-amino-l, 2, 4-triazole  (ATA)  in 
dimethyl formamide  (DMF)  at  100  degrees  Celsius  for  a  period  of  five 
hours  (reference  2).  The  aryl  halide  (Ar:X),  picryl  chloride,  and  the 
amine  (Z),  A3A,  undergo  a  two  st^  bimolecular  displacement  nucleophilic 
aromatic  substitution  (reference  3). 
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iX 

Ar;X  +  :Z  — >  Ar* 

:Z 

iX 

Ar*  — >  Ar:Z  +  :X 
:Z 


An  aryl  halide  contains  an  aromatic  ring  (Ar)  with  an  attached 
halogen  (X),  an  element  in  groins  Vila  on  the  Periodic  Table.  An 
aromatic  compound  is  an  organic  ring  with  alternating  double  bonds. 
Orbital  overlap  of  the  alternating  double  bonds  results  in  a  resonance 
structure  forming  a  delocalized  pi  cloud  of  electrons.  Benzene  carbon- 
carbon  bond  lengths  are  all  equivalent  and  half  the  distance  between 
single  and  double  bond  length.  The  heats  of  hydrogenation  and 
combustion  of  benzene  are  lower  than  ejqpected.  These  i^ysical 
properties  are  a  result  of  the  delocalized  resonance  structure.  Picryl 
chloride  (2,4,6-trinitrochlorcA3enzene)  is  the  aryl  halide  used  in  the 
synthesis  of  PATO.  Picryl  chloride's  nitro  groups  (NO2)  located  in  the 
ortho  and  para  positions  of  the  benzene  ring  (2  and  5)  are  strongly 
electron  withdrawing  (reference  3). 


Cl 


M-N 


NH„ 


\ 


ATA 

The  first  step  of  the  two  step  mechanism  is  the  attack  of  the 
nuclec5:hile,  ATA,  on  the  aryl  halide  bond-  The  nucleqp^iile  has  a  lone 
pair  of  electrons  located  at  the  primary  nitrogen.  The  first  step  forms 
a  carbanion  whldi  is  a  negatively  charged  aromatic  ring,  halogen,  and 
amine.  This  step  is  the  slow,  rate  limiting  and  rate  determining  st^. 
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STEP  1 


Cl 


CgHjCl  +  :ATA  — >  "CgHg  <  + 

ATA 

Nitros  attached  to  the  aromatic  ring  increase  the  rate  of  formation 

of  the  carbanion  by  dispersion  of  its  negative  charge.  Nitros, 

nitrides,  acid,  and  aldehyde  attachments  are  electron  withdrawing  and 

delocalize  the  negative  charge  further  stabilizing  the  carbanion.  Tlie 

carbanion  is  a  full  negative  ion  formed  by  the  amine  attaching  at  the 

same  bond  as  the  halide.  During  the  second  step  the  halogen,  chlorine, 

dissociates  from  the  aromatic  ring  with  a  hydrogen  forming  hydrochloric 

acid  and  the  aryl  amine  (reference  3). 

STEP  2  Cl 

_CgH5<  4  ~>  CgHgATA  +  HCl 

ATA 

The  preparation  of  aniline  from  chlorobenzene  is  well  known. 

CgHgCl  +  NH3  under  15  PSI  at  1500°C  yields  CgH5NH2  +  HCl.  The 
preparation  of  nitroaniline  from  nitrochlorc±)enzene  is  known  to  occur 
much  more  readily.  CgH4N02Cl  +  NH3  in  DMF  at  100°C  yields  CgH^NH2N02  + 
fCl.  PATO  with  two  more  nitro  groups  can  be  ejqsected  to  react  more 
readily. 
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PROCEDURES 
Section  IV 

PATO  was  synthesized  by  reacting  3-ainino-l,  2, 4-triazole,  ATA 
(I6.77g),  andpicryl  chloride  (23.34  g)  in  170  mL  of  N, N- 
dimethylformamide  (DMF)  in  a  1500  mL  roiond  bottom  flask.  The  solution 
was  heated  at  100°C  using  a  heating  mantle  and  variac  control  for  five 
hours.  1000  mL  of  water  near  0°C  was  poured  into  the  solution  after  the 
completion  of  the  reaction  to  induce  precipitation  of  the  PATO.  The 
precipitated  solid  was  collected  by  vacuum  filtration.  The  precipitate 
was  dried  in  a  Napco  model  5831  vacuum  oven  for  24  hours.  The  reaction 
equation  and  stoichiometry  are  as  follows: 

C2HgN4  +  CgH2N306Cl  ~>  CgH^N^Og  +  KCl 

.176  mol  +  .068  mol  — >  .068  mol  +  .068  mol 

16.77  g  +  23.33  g  — >  20.00  g 

The  large  scale  synthesis  of  PATO  was  acconplished  using  a  Mettler 
RCl  reaction  calorimeter.  In  this  scale  reaction  72.93  g  ATA  and  83.89 
g  of  picryl  chloride  in  800  mL  of  DMF  was  heated  at  100°C  for  five 
hours.  Precipitation  of  PATO  was  induced  by  adding  2000  mL  of  cold 
water  to  the  solution.  The  solution  was  vacuum  filtered  and  the  product 
was  dried  in  a  vacuum  oven  at  60®C.  The  reaction  equation  and 
stoichiometry  are  as  follows. 

CjHgN,  +  CgHjNjOePl  ->  CgHjN^Os  +  (Cl 

.3388  mol  +  .847  mol  — >  .3388  mol  +  .3388  mol 

83.87  g  72.92  g  -->  100  g 

(reference  2) 

Recrystallization  was  accomplished  by  dissolving  10  g  of  PATO  in 
100  mL  of  cyclohexanone  in  a  400  mL  beaker.  The  tenperature  was 
gradually  raised  to  100°C. 
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Elemental  analysis,  energy  dispersive  x-ray  microanalysis,  and 
nuclear  magnetic  resonance  (NMR),  infrared,  and  mass  spectrometry  were 
used  for  identification  and  quantitative  evaluation  of  the  product 
material.  The  physical  characterization  of  PATO  was  accomplished  using 
a  scanning  electron  microscope  and  a  particle  size  analyzer.  Thermal 
analysis  was  conducted  on  a  differential  scanning  calorimeter  and  a 
Henkin  time-to-ejqilosion  tester.  Impact  sensitivity  was  determined 
using  a  drop  hammer. 

The  mass  spectrum  of  PATO  was  obtained  with  a  Finnagen  MAT  5100 
GC/MS  system  at  340°C  using  a  direct  inlet  port.  A  mass  spectrum  can 
give  an  exact  molecular  wei^t.  The  number  of  molecular  formula 
possibilities  are  narrowed  and  the  presence  of  certain  structural  units 
can  be  detected  and  identified.  A  mass  spectrum  shows  the  signal 
obtained  from  the  fragment  ions'  mass  to  charge  ratios  (reference  4). 

Proton  NMR  spectra  were  detained  using  a  Bruker  AC-300,  300  MHz 
Fourier  Transform  Superconducting  NMR  spectrometer.  A  3  mg  sample  of 
PATO  dissolved  in  1  mL  of  deutero  DMF  was  placed  in  a  5  mm  glass  NMR 
tube.  Each  structure's  protons  experience  a  characteristic  applied 
field  strength  which  produce  a  set  effective  field  strength  at  which 
absorption  takes  place.  The  resonance  frequency  {^)  is  determined  by 
the  fundamental  NMR  equation  '^  =  6  /  2ti  H°,  where  3  is  the  gyromagnetic 
ratio  and  is  the  main  field  strength.  Nuclear  magnetic  resonance 
spectroscc^  measures  the  applied  field  strength  plotted  against  the 
absorption  signal.  In  a  NMR  a  sipercoixiucting  magnet  produces  a 
homogeneous  magnetic  field  of  approximately  7.4  Tesla  between  its  poles. 
The  sample  is  spun  about  its  main  field  (2)  axis  by  a  stream  of  air  to 
average  out  any  existing  homogeneities  in  the  xy  plane.  Tte  nuirtaer  of 


11-10 


signals  on  the  spectrum  tells  how  many  "kinds”  of  structiare  there  are  in 
the  molecule.  The  position  of  the  signals  tells  about  the  electronic 
environment  of  each  proton.  The  intensity  of  the  signals  shows  the 
number  of  protons  of  each  kind  that  exist.  The  splitting  of  a  signal 
into  several  peaks  shows  the  environment  of  a  proton  with  respect  to 
other,  nearby  protons  (reference  3). 

Elemental  analysis  for  carbon,  hydrogen,  and  nitrogen  was  conducted 
on  a  Carlo  Erbe,  Model  No.  1106,  CHNO  analyzer.  The  sample  was  crimped 
in  a  tin  container  and  dropped  into  a  quartz  tube  at  lOSO^^C.  The 
elemental  analysis  quantitatively  analyzes  the  weight  percent  of  carbon, 
hydrogen,  and  nitrogen  in  a  sample.  The  theoretical  percents  for 
carbon,  hydrogen,  and  nitrogen  in  PATO  are  32.55,  1.71,  and  33.22, 
respectively  (reference  2). 

An  infrared  spectrum  was  obtained  using  a  Mattson  Cygnus  25  Fourier 
Transform-Infrared  (FT-IR)  spectrometer.  It  is  characteristic  of 
organic  groups  to  absorb  infrared  radiation  of  certain  frequencies. 

This  radiation  absorption  is  converted  by  the  molecule  into  energy  of 
molecular  rotation.  The  absorption  is  quantized,  creating  the  infrared 
spectrum  (reference  4) . 

Every  element  in  a  sample  will  emit  a  unique  and  characttristic 
psattem  of  x-rays.  The  x-rays  emitted  by  PATO  molecules  were  quantized 
in  a  X-ray  analyzer  attached  to  a  DS-130S  Scanning  Electron  Microsccpe. 
Tte  sanple  was  coated  with  gold  to  make  the  sample  conductive  (reference 
5).  Concentration  of  the  elements  could  not  be  determined  as  a 
consequence  of  the  gold  coating. 

Particle  size  was  determined  by  a  Brinkmann  Model  2010  Particle 
Size  Analyzer.  Two  samples  were  suspended  in  glycerin  with  a  98.5% 
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concentration  in  a  magnetic  cell.  The  particle  size  was  measured  using 
the  scanning  laser  technique. 

EATO,  AIA,  and  picryl  chloride  (1  mg  samples)  were  thermally 
analyzed  on  a  Perkin-Elmer  System-4  Differential  Scanning  Calorimeter 
and  a  DuPont  2100  Thermal  Analyzer.  Heat  was  applied  at  a  rate  of  10.00 
degrees  per  minute.  The  scan  produces  a  trace  of  the  endothermic  and 
exothermic  events  which  take  place  as  the  tenperature  of  the  sample 
rises  in  an  inert  N2  environment  (reference  6).  The  samples  were 
crimpied  in  either  a  vented  or  air  tight  aluminum  saitple  pans. 

The  LASL  method  for  determining  critical  temperature  based  on  time- 
to-explosion  tests  was  used  (reference  7).  A  40  mg  explosive  sample 
was  pressed  in  a  DuPont  E-83  aluminum  blast-cap  shell  and  sealed  by  a 
400  lb  force  applied  to  a  hollow  skirted  plug.  The  hic^iest  temperature 
at  which  four  samples  do  not  detonate  after  2000  seconds  (no-go)  is 
concluded  to  be  the  critical  temperature.  Tests  were  conducted  at  340°, 

330°,  320°,  310°,  300°,  295°,  290°,  287°  285°,  284°,  283°,  282°,  281°, 
and  280°C.  The  apparent  energy  of  activation  and  frequency  factor  ("Z) 
were  determined  by  plotting  the  log  of  time  against  the  inverse  of  the 
temperature.  The  critical  temperature  (Tm)  can  be  calculated  for  a 
given  size  in  terms  of  the  kinetic  and  pliysical  parameters  (reference  8). 

Frank  Kaminetskii  Equation,  EQ  1 


Tm  = 


R  In 


E _ 

A^ZE 


Ttti^X6 

where; 

R  =  gas  constant,  1.987  cal/mol 
A  =  half  thickness 
p  =  density 

Q  =  heat  of  decomposition 
Z  =  pre-e;qxaoential  factor 
E  =  activation  energy 
=  thermal  conductivity 
6  ®  shape  factor  (2.0  for  infinite  cylinder) 
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Impact  data  were  obtained  with  a  Bureau  of  Mines,  Model  No.2,  Drop 
Hammer.  Twenty  35  mg  samples  were  tested  with  a  5  kg  wei^t  drc^:ped 
from  200.5  cm.  Each  powdered  saitple  was  impacted  on  Norton  coated 
abrasive  paper  of  180  grit  (ESN  5250-271-7930).  "nie  impact  sensitivity 
%0%  obtained  using  a  Bruceton  down  procedure. 
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RESULTS 
Section  V 

Wien  AIA,  picryl  chloride,  and  were  added  in  tlie  flask,  the 
liquid  gradually  turned  dark  maroor  Small  yellow  crystals  formed  and 
fell  to  the  bottom  as  the  cold  water  was  added.  The  first  synthesis  of 
PATO  had  a  wet  weight  of  44.236  g.  After  u:  ymg  the  filtrate  in  a 
vacuum  oven  the  weight  was  12.04  g,  a  62.25  percent  yield.  The  scale-up 
reaction  produced  a  226.05  g  wet  weight,  with  a  86.73  g  dry  weight,  a 
86.73  percent  yield.  Recrystallization  was  unsuccessfully  attempted 
using  cyclohexanone.  Only  3  g  of  PATO  were  soluble  in  100  mL  of 
cyclohexanone  and  would  .  precipitate  from  the  solution.  Since 
recrystallization  of  PATO  was  unsuccessful,  scans  and  spectra  were 
derived  from  the  unrecrystal lized  material. 

No  molecular  ion  was  observed  on  the  mass  spectrum  (figure  1).  The 
peak  of  greatest  mass  was  exhibited  at  203  atomic  mass  units  (amu), 
which  corresponds  to  the  loss  of  two  nitro  groups  (-NO2).  The  next  peak 
was  located  at  157.2  amu  indicating  the  loss  of  the  third  nitro  group. 
Pea3cs  at  145.2,  130.2,  and  116.1  amu  show  the  fragmentation  of  the 
triazole  ring  with  the  additional  loss  of  a  carbon,  a  nitrogen  and 
hydrogen,  and  a  nitrogen,  in  respective  order.  The  peaJi  at  103.1  amu 
suggests  a  rearrangemei'.t  of  the  bonds  with  the  loss  of  another  carbon. 
This  fragmentation  pattern  is  consistent  with  that  expected  of  PATO. 
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FIGURE  1  Mass  Spectrum 

The  Proton  NMR  Spectrum  (figure  2)  contained  one  single  peak  at  a 
field  shift  of  9.13  ppm.  This  peak  corresponds  to  the  absorption  of  the 
aromatic  hydrogen  and  was  shifted  down  in  field  in  comparison  with 
picryl  chloride  indicating  successful  conversion  to  PATO. 
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Elemental  analysis  mean  percent  composition  for  catixin,  hydrogen. 


and  nitrogen  was  31.93  +/-  .08,  1.825  +/-  .005,  and  32.97  +/-,06, 

respectively.  The  measured  results  were  in  good  agreement  with  the 

theoretical  values,  indicating  the  successful  synthesis  of  PATO.  The 

percentages  from  each  analysis  were  as  follows; 

Theoretical  Run  1  Run  2  Run  3  Mean  +/-  Error 
C  32.55  31.7884  31.9645  32.0451  31.93  .08  .62 

H  1.71  1.8162  1.8236  1.8340  1.825  .005  .115 

N  33.22  32.8684  33.0778  32.9782  32.97  .06  .25 

The  peaks  indicating  infrared  radiation  absorption  on  the  infrared 

spectrum  (figure  3)  correspond  with  the  infrared  radiation  produced  by 

the  bond  structures  in  PATO.  The  presence  of  the  following  organic 

groups  were  verified  by  the  infrared  spectrum; 

PEAK  LOCATIOl  (wavenumbers)  BOND  INDICATED 

3300-3500  N-H  Amine 

1173,  1204,  1237,  1313,  1348  C-N  Amine 

1619,  1595  -NH  Amine 

1529,  1348,  1383,  542,  520  -NO  2  Nitro 

861,  736,  717  Benzene  with  symmetrical  atch 

924,  980  Alkene 


HERO  FACILITY 
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The  X-ray  spectirum  (figi\re  4)  showed  the  presence  of  carbon, 


nitrogen,  oxygen,  and  a  trace 

amoiint  of  chlorine. 

The  mean  particle 

size  obtained  from  the  particle  size  analyzer  was 

1.26  microns.  The 

number  distribution  is  displayed  in  the  below  cable. 

PARTICLE  SIZE 

Under  (%) 

Size  (microns) 

Over  (%) 

55 

0.97 

45 

85 

1.50 

15 

90 

1.89 

10 

95 

2.95 

5 

97 

3.92 

3 

99 

5.55 

1 

100 

114.50 

0 

Vert»  500  counts  Disd*  I 


Preset*  Off 
Elapsed*  120  secs 


f-  0.200  Range*  10.230  keV 


FIGURE  4  X-ray  Spectrum 

The  onset  of  the  exotherm  on  the  differential  scanning  calorimeter 
(DSC,  figure  5)  varied  from  310®C  to  320°C.  The  decomposition 
temperatures,  onset  temperatures  and  area  under  the  curve  obtained  from 
the  DSC  were  as  follows: 

DSC  RESULTS 


Material  Conditions 

lixotherm 

Onset 

Area 

PATO  vented  A1  pan. 

322.9""  ^C 

319.69°C 

178.3  cal/g 

PATH,  unvented  A1  pan. 

319.05 

315.51 

188.42 

PATO  N2  purge  A1  pan. 

314.15 

Endotherm 

310.09 

105.0 

ATA  unvented  A1  pan 

155.38  °C 

152.65 

Picrylchloride  " 

78.84 

75.69 
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FIGURE  5  DSC 

The  critical  temperature  (Tm)  for  PATO  was  measured  at  282  +/-  1°C 
using  the  Henkin  time  to  explosion  test  (figure  8).  The  energy  of 
activation  and  frequency  factor  calculated  to  be  23  kcal  and  3.4xl0~®, 
respectively  (figure  7).  Four  no-go  tests  v’ere  recorded  at  282  degrees 
Celsius.  No-gc/s  were  obtained  at  280,  281,  and  282  degrees  Celsius. 
The  times  associated  with  each  temperature  are  listed  below. 


HENKIN  TIME  TO  EXPLOSION  RESULTS 


Temperature  ('^C) 

Time  (s) 

Temperature  (°C) 

Time  (s) 

340 

6.8 

287 

31.1 

330 

8.1 

285 

38.3 

320 

8.2 

284 

35.35 

310 

9.5 

283 

55.8 

300 

13.9 

282(4  runs) 

2000  no-go 

295 

15.7 

281 

2000  no-go 

290 

24.4 

280 

2000  no-go 

11-18 


time  (second*)  os  Temperature  (Celsius) 


6,  Henkln  TUoe  to  Explosion  Results 

^•MlTT’r— _ _ 3n.74S  ’  300.785  283 


pctlvation  Entrgu  »  2293^^  ♦ 

Co,lfj5),AP"'f32|„|06‘.63  (c.n 


55.8 


^w,  sri«K.ian  totffjcl 

ptere.pt  .  -17.2055 


■g  3.32016 
»n 


01 


2.51854 


1.31692  i 


.  168661E-02  . i74233E-0Z 

1/tTemp  (K)3 


6.e 
179804E-U2 


AEi.ivmp  - 

Impact  sensitSdty’t:e^res2tii'£,'^^°°^°'’ 

y  s  resulted  m  no  reaction  of  PATO  in  20 

drops  at  a  height  ot  200.5  cm  with  a  weight  c,  5  .iicgram.  ^e  impac 

sensitivaty  height  of  SO  percent  probability  of  reaction  (H,,,,)  ia 

therefore  greater  than  200.5  „.  This  is  similar  to  TAiB,  the  stands, 
for  insensitivity. 
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CONCLUSIONS 
Section  VI 


The  results  from  the  mass  spectrum,  NMR  scans,  elemental  analysis, 
infrared  spectrum,  scanning  electron  micrograph,  and  x~ray  spectrum 
verify  the  compound  synthesized  is  PATO.  PATO  is  thermally  stable  with 
a  318.72  degrees  Celsius  decomposition  exotherm  and  a  critical 
temperature  of  282°C.  Its  drop  weight  impact  sensitivity  with  a  5  kg 
weight  is  greater  than  200.5  cm,  extremely  insensitive.  It  does  have  an 
unfavorable  small  particle  size  which  can  probably  be  overcome  through 
recrystallization.  PATO  is  tbermally  stable,  insensitive  to  impact,  and 
high  in  performance  making  it  a  promising  candidate  as  an  insensitive 
high  ej<plosive. 
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miscellaneous 

Section  VII 

Ms  summer  through  the  H®  I  learned  the  importance  of  patience 
and  precision  in  ccntoin,  sci«tific  e:,=erimentatlcn.  l  found  that 
repetition  of  similar  tests  are  necessary  for  accuracy.  l  gained 
a:g>erience  in  applying  the  scientific  method  and  realised  the  importance 
Of  heaping  acoirate  and  detailed  records.  1  had  the  opportunity  to  -use 
advanced  chemistry  Ihstniments  that  most  stup^ts  studying  chemistry 
will  not  get  to  use  until  after  graduation  from  college. 
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INTRODUCTION 
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This  paper  contains  the  final  research  results  of 
Christopher  Scott  Ellis  in  the  High  School  Apprenticeship  Program 
(HSAP)  for  the  eleven-week  term  of  the  summer  of  1990.  All  work 
was  done  at  the  Eglin  Air  Force  Base  Armament  Laboratory,  in  the 
Advanced  Guidance  Instrumentation  Branch,  Radar  and  Image 
Simulation  Section  (AGI/RISS) .  This  work  was  performed  under  the 
mentorship  of  Mr.  Mike  Wallace,  the  Section  Chief  of  RISS. 

The  RISS  operates  two  computer  labs  located  on  the  fourth 
floor,  the  Radar  Signal  Processing  Lab  (RSPL) ,  and  the  Image 
Processing  Lab  (IPL).  Both  labs  boast  VAX  mainframes,  disk  farms, 
and  numerous  hi-res  RGB  monitors.  The  vast  majority  of  my  number¬ 
crunching  needs  were  satisfied  in  these  labs.  My  terminal  was  a 
VAX  Workstation,  linked  to  a  MicroVax,  in  my  mentor's  office.  I 
also  utilized  two  thermal  wax  printers  to  make  hardcopies  and 
view-graphs  of  images  on  the  RGB  monitors.  In  addition,  primarily 
for  generating  my  report  and  seminar,  I  utilized  a  Z-248  with  the 
HP  LaserJet  II  and  QMS  ColorScript  100  printers. 

The  work  done  in  the  RSPL  and  the  IPL  centers  on  image 
processing.  Specifically,  using  image  processing  techniques  to 
take  images  from  missile  seekers  and  extract  targets  from  them. 
Traditionally,  this  was  done  by  utilizing  image  algebra,  as  well 
as  various  techniques  such  as  thresholding,  transforms,  and  edge 
detection.  My  task  this  summer  was  to  utilize  the  technology  of 
neural  networks  to  perform  extractions,  as  opposed  to  the  said 
techniques. 


r 
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Neural  Network  (NN)  Introduction 

A  NN  is  simply  a  cluster  of  interconnected  neurons  which  are 
programmed  to  sol^'e  a  particular  problem.  Each  neuron  is  a  very 
simple  processor.  It  receives  impulses  from  a  number  of  other 
neurons,  adds  them  up,  passes  the  value  through  some  function, 
and  then  passes  that  value  to  a  number  of  other  neurons.  The 
network  architecture  I  used  was  the  Back  Propagation  (BP) 
arrangement,  as  shown  in  the  accompanying  diagram.  Each  neuron  in 
the  input  layer  is  stimulated  to  a  value,  representing  to  some 
parameter  of  the  problem.  The  impulses  travel  trough  the  NN  to 
the  middle  then  the  output  layer,  where  the  outputs  of  the  output 
neurons  represent  some  part  of  the  NN's  solution. 

A  NN  is  functionally  the  same  as  our  own  built  in  NN,  the 
brain;  it  associates,  and  identifies,  patterns.  A  NN  is 
programmed  to  perform  a  task  by  teaching  it  a  set  of  inputs  and 
corresponding  outputs.  For  instance,  a  network  might  associate 
the  26  8x8  bitmap  images  of  the  ASCII  letters  with  the  actual 
ASCII  code  (an  OCR  application) .  Similarly,  a  tank  can  be  trained 
on  an  image  of  a  tank,  or  an  armored  personnel  carrier  (APC) ,  and 
then  recognize  another  in  a  missile  seeker's  scene. 
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Example  Netw( 


Description  of  Research 

with  this  enormous  power  of  networks  in  mind,  I  set  forth 
with  the  following  research  goals: 

1)  Produce  the  code  to  train  a  BP  network 

2)  Produce  the  code  to  scan  a  512x512  image  with  a  network 
trained  on  50x50  images 

3)  Obtain  intensity-altitude  plot  of  the  NN's  outputs 

The  first  two  steps  were  the  most  time  consuming,  as  well 

as  the  most  productive,  resulting  in  12  megs  of  code,  data,  and 
image  files. 

I  now  began  my  experiments,  using  the  accompanying  digitized 
picture  as  a  test.  I  trained  the  network  to  recognize  the  APC 
located  in  the  upper  left  area.  I  wanted  to  see  two  things:  one, 
if  the  network  would  also  identify  the  two  alternate  targets, 
thus  showing  adaptive  behavior,  and  two,  if  the  NN  rejected  the 
noisy,  cluttered  background  that  is  deceptively  like  a  target. 

The  accompanying  graph  shows  the  results  of  the  NN's  scan  of 
the  image.  Areas  of  high  intensity  are  where  the  NN  recognized 
the  APC  which  it  trained  upon.  Conversely,  areas  of  low  intensity 
were  not  recognized  as  a  probable  tank.  The  3D  plot  is  an 
altitude  plot  of  intensity.  Peaks  represent  areas  of  intensity. 

As  can  be  seen,  the  NN  passed  both  of  my  tests.  First,  it 
gave  high  responses  for  the  other  two  targets,  which  look  nothing 
like  the  APC.  Next,  it  rejected  areas  of  vegetation  which  are  the 
same  size  and  intensity  as  the  targets. 
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Conclusions  and  Acknowledgments 

The  NN  used  in  the  experiment  demonstrated  several 
advantages  of  NNs  to  traditional  techniques  (TT) .  TTs  simply 
identify  objects  against  the  background.  A2 though  a  tank 
certainly  fits  this  description,  so  does  a  large  tumb.leweed.  In 
addition,  if  the  target  is  covered  by  a  net,  or  is  otherwise 
camouflaged  (in  the  visual  spectrum),  a  visual  seeker  cannot  lock 
on. 

A  NN's  power  is  that  is  a  direct  method;  it  evaluates  how 
close  a  pattern  is  to  one  it  was  trained  upon.  Thus,  noisy 
garbage  is  rejected  because  it  simply  bears  no  resemblance  to  a 
desired  target.  Also,  since  a  van  resembles  an  APC,  the  NN  would, 
and  did,  also  select  it  as  a  likely  target.  This  double-barrel 
power,  adaptive  target  ID  along  with  imperviousness  to  noise, 
compounded  with  the  sensitivity  of  IT  to  noise,  clearly  shows  the 
superiority  of  NNs  in  target  ID 


12-9 


ACKNOWLEDGMENTS 


I  would  like  to  thank  the  following  people  for  making  this  summer 
research  possible; 


(AGI/RISS) 

Mike  Wallace,  for  being  such  a  cool  mentor 
Michael  Deiler,  for  his  guidance  in  my  pursuit  of  an  Amiga 
Lee  Frestwood,  for  possibly  being  more  lax  than  me 
Thomas  Marler,  for  relaying  to  me  the  beauty  of  Cozumel 
Neville  Thomson  and  Russel  Dukes,  for  their  timely  bits  of 
wisdom 


12-10 


SPACE  DEBRIS  ANALYSIS 


By 


Dana  Farver 


Mentor:  Dav^d  M.  Hogg 

Offices  AFA7L  /  SAA 
Date:  Iti  Aug.  1990 


A  special  thanks  to 
David  M.  Hogg 
Mr.  Don  Harrison 
Lt  Col  Donohue 
CIC  Charlie  Schlegel 
CIC  Rob  Haug 
Mr.  Charlie  Miller 
and 

All  of  SAA 


13-2 


Background 


Hart*' '2  orbital  environmeni;  has  become  a  space  :un(.varc. 
“ns  aangers  of  space  debris,  nowever,  do  not  come  •from  nacurai 
bocies  SLCh  as  meteoroids.  cste»-oids,  or  the  ejecta  -from  comets. 
There  is  a  growing  concern  wit",  man-made  or  arti'ficial  saace 
deb>'is  such  as  dead  satellites,  spent  rocket  stages,  discs'-dec 
c.-rent ,  or  -fragments  -from  satellite  breakups.  0*  all  orcital 
iatellites  less  than  ZV.  are  cceracional  and  since  the  earl-/ 
i  ‘:‘'e  J  "'Own  satellite  oco-.'l  ?ti n.">  nas  oeen  increasino  ?■;  ~ 

r-  “?;?  cateili  ss  annual!.. 

^t  ■‘ace  value  the  increase  in  satellites  would  not  seem  to 

be  s  oroblem  since  most  missions  e-'e  short-lived  and  reenter  the 

Earth's  atmosphere.  The  North  American  Aerospace  De-fense  Command 
CNORADl  reports  that  man-made  objects  reente*  at  the  rate  o-f 
aoout  tne  a  oav.  The  source  c-f  the  problem,  however,"  is  .(1) 
'.crxal  satellite  ooerations.  (2'  the  deterioration  o-f  satal litas, 
ar.s  'Tt  the  -fragmentation  or  b-eakup  o-f  satellites.  Satellite 
■^r«gmentations  are  responsible  -for  mere  than  one-thirc  o-f  all 
nown  Earth  satellites  now  in  orbit. 

Dejrii  can  not  only  impair  the  functioning  of  a  satellite, 

but  It  ■ av  also  create  economic  consequences.  Collisions  with 

small  oa.  tides  -less  than  1  mm  diameters;  usually  ao  not  tause 
■cacsst-oDi-ic  damage,  out  they  -.re  much  mor*  common.  Th#  -esult 
1  ;  the  gradual  oecradation  ■  f  highly  machined  surfaces  that 
necessitate  s^^oensive  replacement.  Collisions  with  large  space 
debris  can  result  in  damage  exceeding  that  of  ekplosives.  Also 
the  collision  is  likely  to  produce  millions  of  smaller  particles 
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36  0.000536  9.03E-07 

1  0.000538  9.08E-07 
9  0.000539  9.14E-07 
9  0.000543  9.26E-07 

2  0.000545  9.33E-07 
4  0.000549  9.46E-07 

51  0.00055  9.5E-07 

2  0.000553  9.62E-07 

10  0.000554  9.63E-07 
1  0.000557  9.76E-07 

55  0.000558  9.77E-07 
1  0.000587  l,08E-06 
6  0.000587  1.08E-06 
46  0 . 000592  1 . lE-06 

4  0 . 000596  1  . 1 lE-06 

11  0.000598  1.12E-06 
23  0.000599  1.13E-06 
10  0.000599  1 . 13E-06 

14  0.000599  1 . 13E-06 
10  0.000603  1 . 14E-06 

1  0.000607  l,16E-06 
9  0.000615  l,19E-06 

10  0.000618  1.2E-06 

5  0.000619  1 . 2E-06 

11  0.00063  1.25E-06 

1  0.00063  1.25E-06 

15  0.000632  1.25E-06 

4  0.000632  1.26E-06 

20.5  0.000647  1.32E-06 

13  0.00065  1.33E-06 

8  0.000652  1.34E-06 
1  0.000653  1.34E-06 

17.5  0.000655  1.35E-06 
20  0.000659  1.36E-06 

8  0.00066  1.37E-06 

1  0.000663  1. 38E-06 

4.5  0.000671  1.41E-06 
26  0.000672  l,42E-06 

10.5  0,000676  1.44E-06 

6  0.000679  1.45E“0e 

5  0.000679  1.45E-06 

5  .  000670  .45E-06 

1  0.000686  :,48E-06 

11.5  0,000639  ;,49E-06 
3  0.000689  1.49E-06 
3  0.000689  1.49E-06 

19  0.000691  1.5E-06 

1  0.000693  1.51E-06 
10  0.000699  1.54E-06 

9  0.000703  1. 55E-06 


7.860427  2488.554  147.6693 

35.10688  2490,288  2951.82 

49.71598  2497.201  5969.105 

7.860427  2502.36  150.1408 

26.6351  2504.075  1727.458 
56.28949  2519.407  7857.897 
90.25317  2536.226  20608.46 

7.860427  2542.891  157.5551 

35.10688  2551,175  3173.669 

35.10688  2567.581  3235.293 

12.60321  2577.325  421,7229 

20.20768  2595.001  1106.629 
114.4176  2601.369  35739.47 
12.60321  2617.154  441.578 

37.71883  2618,723  3962.247 

7.860427  2635.849  175.4731 
120.4559  2637.395  41279.88 

7.860427  2778.081  205.4395 

26.6351  2778.081  2358.85 

106.6524  2800.185  38730.94 

20.20768  2816.537  1414.934 
40,24864  2828.679  5686.035 
66.51741  2831,361  15574.47 

37.71883  2831.361  5007.939 
47.43378  2832.701  7931.121 

37.71883  2852.651  5121.755 

7.860427  2872.325  227.0647 

35.10688  2908.345  4701,96 

37.71883  2923.513  5513.001 

23.52464  2926.025  2149.993 
40,24864  2980.246  6649.907 

7.860427  2980.246  253.6328 
49,71598  2988.692  10232.75 

20.20768  2989.895  1692.612 
61.50316  3061.501  16832.74 
45.09894  3072.925  9152.615 

32.40049  3085.393  4781.802 

7.860427  3088.777  282.3635 
55.21973  3095.521  14026.41 
60.47743  3116.685  17172.05 

32.40049  3123.31  4960.266 

7.860427  3136.474  295.6475 
21.89561  3173.187  2375,515 
72.31052  2173.515  26039.48 
38.99334  3197.548  7708.837 

26.6351  2209.069  3635.821 

23.52464  3209, 'J69  ;33i.22 

25.10688  3212,197  6335.012 

7.860427  3246.207  327  "764 
41.48587  3256.374  9216.369 
16.61189  2257.387  1479.119 

32.40049  3260.423  5642.631 
58.40104  3269.496  18488.89 

7.860427  3278.52  337.6622 

31,71883  3308.245  7988.516 

35.10688  3326.798  7037.534 
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Procedure 


With  the  increase  in  man-made  debris  there  came  a  growing 
concern  with  collisions  caused  bv  this  debris.  In  order  to 
Characterise  the  -fragmentation  produced  by  a  hvpervel oci tv  impacr 
in  space,  this  project  was  originated.  It  was  created  as  a 
"piggy-oack"  project.  The  project  was  added  onto  an  existing 
test  that  alreac-/  had  a  hvpervel oci tv  impact,  out  the  primary 
objective  o-f  the  test  was  not  the  same  as  that  o-f  the  project,  to 
gather  ■‘•'aamentati cn  data. 

In  tne  test  a  small  mass  was  projected  at  a  target.  A-fter 
impact  the  -fragments  were  collected  in  stvro-foam  ejecta  acquisi¬ 
tion  tiles  'SEATS).  Five  di-f-ferent  SEATs  were  placed  within  the 
chamber  (See  •'igures  A-1  and  A-2) .  Each  SEAT  was  broken  into 
-four  <3,'6-inch  tiles  labeled  A  through  D  with  di-f-ferent  thickness¬ 
es  -'See  figure  A-Tl .  Tiles  A  and  C  were  made  of  Celote:-:,  tiles  B 
.^nd  "  -<ere  s t  ,  *o-^oam.  '^he  Celote::  proveo  to  oe  too  cense  to 
sasii.  extract  the  fragments;  therefore,  tiles  B  and  D  were  the 
onlv  parts  used  n  the  analysis.  The  purpose  of  the  different 
parts  was  to  determine  the  best  material  and  thickness  needed  to 
catch  the  fragments. 

The  formula  used  to  calculate  the  velocities  of  the  frag- 
-t>ents  «as  obtained  from  research  done  by  the  u.S.  Army  at  the 
Ballistic  nesea.rt'"  Laboratory.  The  report.  Technical  Report  BRL- 
TR-:i;354,  derives  four  equations  which  relate  the  depth  of  pene¬ 
tration  of  the  fragment  to  the  fragment's  velocity.  Of  the  four 
equations,  one  is  considered  the  most  accurate; 


13-5 


Velocity 


where 

'Z  Density  of  the  impact  medium  (SEATs)  =  31.04  kg/m^ 
r  Constant  determined  by  Equation  2.  (m/s> 

-  Cross  sectional  area  of  the  fragment,  m** 

=  Deptn  of  penetration  of  -fragment  into  impact  meoium.  iTp 
^  Constant  dependent  on  the  impact  medium,  (dimensionless; 
‘"ass  of  the  fragment,  kg 


c 


B ( Bsub \ f  ) 


■2) 


where 


'f  Density  of  the  fragment  =  7333  ^g/m-’ 

=  r%adius  of  the  fragment,  m 

r*  Constant  aependent  on  the  impact  medium,  '.dimensionless; 


Sines  the  f-agment  shape  is  assumed  to  be  spherical  the  equation 
can  t=  cerivec  for  the  cross  sectional  area; 


c  the 


The  constants  and  Hi  are  determined  by  call Sr at in 
SEATS.  To  do  this  it  is  necessary  to  measure-  the  velocity, 
oenetration,  and  mass  o-f  the  projectile.  Steel  BBs  were  used  a.= 
the  projectiles.  The  mass  or  the  BBs  was  349  mg  and  the  density 
was  known  to  be  7933  kg/m-‘.  With  the  help  ot  an  oscilloscope  the 
time  was  recorded  between  the  gun  -firing  and  impact.  The  dis¬ 
tance  from  the  gun  to  the  SEAT  was  also  measured.  These  two 
figures  calculated  the  neeaeo  velocity.  The  depth  of  penetration 
Aias  recorded  as  it  was  necessary  to  olot  the  relationsnip.  Both 
constants  could  then  be  taken  from  the  graph  of  the  natural  log 
cf  oenetration  versus  the  natural  log  of  velocity.  Using  linear 
regression  three  lines  were  drawn  that  best  fit  the  data.  Beta 
was  determined  from  the  slope  of  the  line  and  Bj  from  the  ordi¬ 
nate  intercept.  This  created  a  range  of  values  for  the  two 
constants,.  The  mass  and  depth  cf.  penetration  were  then  substi¬ 
tuted  .ntc  Ecuation  1  for  each  set  bf  constants  to  get  a  orecict- 
ad  vel-ccity  ■‘or  each  BB.  The  three  predicted  velocities  were 
comoared  to  the  measured  velocity.  The  constants  0.68  ana  6.7~ 
best  fit  the  measured  velocities. 

Mi^h  the  values  for  Beta  and  Bi,  it  was  possible  to  begin  to 
calculate  tne  velocities  cf  the  fragments.  In  order  to  do  this 
the  data  of  the  mass  and  penetration  had  to  be  gathered.  This 
was  done  by  first  dissecting  a  SEAT  until  a  fragment  was  found, 
"hen  the  depth  was  measured  anc  the  angle  of  entry  was  taken  into 
account.  If  the  direction  of  the  -fragment  could  not  be  dete: — 
mined  then  the  perpendicular  distance  to  the  front  surface  was 
used  instead.  Later  the  fragment  would  be  weighed  using  a  mi- 


::roscale  sensitive  tc  tne  hunared-thousandth  or  a  gram.  ihe  mass 
and  penetration  data  was  entered  into  a  sp'readsnee'C  with  the 
formulas  for  the  radius,  area,  velocity,  c,  and  kinetic  energy 
(See  AppenaiK  B) .  -rom  this  information  a  graph  couic  ce  plotted 
showing  the  mass  versus  the  velocity.  The  -egression  output 
determined  a  line  that  best  fit  the  data.  The  constant  was  the 
/-intercept  and  the  h  coefficient  was  the  slope  of  the  line.  The 
line  resulting  from  the  regression  analysis  was  plotteo  with  the 
s.iisti-'g  -el  aticnship  of  mass  and  velocity  (See  Appendi:;  C)  . 
~he=s  graons  were  anal /ced  and  conclusions  were  arawn. 


f 


i  ^ 
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Results  and  Conclusions 


□nee  the  graons  were  drawn  an  analysis  ccuid  be  per-formed. 
In  each  o-f  the  shots  the  regression  output  showed  a  positive 
coe-f  +  icient.  The  graph  at  the  line  was  almost  -flat.  It  seems 
to  prove  the  hypothesis  that  the  -fragments  were  riding  on  a  shdeh 
wave  -from  the  impacts  therefore,  they  were  traveling  at  a  con¬ 
stant  velccitv.  At  the  heavier  masses  the  line  r.ad  an  upward 
trenc.  This  follows  the  belief  that  the  heavier  masses  have  more 
momentum  and  .  inetic  energy  and  as  a  ►•esult  will  penetrate  the 


medium  further. 
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SHOT  6575 


Mass 


0. 18 
0.22 
0.25 
0.25 
0.26 
0.28 
0.29 
0.31 
0.31 
0.34 
0.34 
0.37 
0.39 
0 . 4 
0.41 
0.41' 
0.42 
0.43 
0.44 
0.46 
0.46 
0.47 
0.48 
0.52 
0.54 
0.54 
0.54 
0.55 
0.55 
0.55 
0.58 
0.59 
0..  59 
0.59 
0.6 
0.63 
0.65 
0.66 
0.66 
0 . 68 
0.69 
0.69 
0.72 
0.74 
0.76 
0.76 
0.76 
0.77 
0.77 
0.'»8 
0.79 
0.8 


Rho  =  31.0426 
Rhosubs  =  7833 
Beta  =0.681112 
Bsubl  =6. ’^66796 


Pene¬ 
tration  r  a 

3  0.000176  9.77E-08 

3  0 . 000189  1  .  12E-07 

4  0 . 000197  1  .  22E-07 
3  0.000197  1 .22E-07 
6  0 . 000199  1 . 25E-07 
6  0.000204  1 .31E-07 
3  0.000207  1 .34E-07 

2.5  0.000211  1 .4E-07 

3  0.000211  1.4E-07 

9  0  000218  1.49E-07 
1  0.000218  1.49E-07 

3.5  0 . 000224  1 . 58E-07 

4  0.000228  1.64E-07 

8  0,00023  1.66E-07 

4  0.000232  1 .69E-07 

3  0 . 000232  1 .69E-07 

10  0.000234  1.72E-07 

4.5  0.000236  1 .75E-07 

1  0.000238  1.77E-07 

5  0.000241  1 .83E-07 

2  0.000241  1 .a3E-07 

9  0.000243  1.85E-07 

4  0.000245  1 .a8E-07 
1  0.000251  1.98E-07 

6  0.000254  2.03E-07 
1  0.000254  2.03E-07 

4  0.000254  2.03E-07 

3  0.000256  2.06E-07 
9  0,000256  2.06t.-07 

7  0.000256  2.06E-07 

1  0.00026  2.:13E-07 

1.5  0 . 000262  2  .:  16E-07 

1  0.000262  2.  16E-07 
9  0.000262  2. 16E-07 

25  0 . 000263  2 .  18E-07 
3  0.000268  2.25E-07 
3  0.000271  2.3E-07 

2  0.000272  2.32E-07 
2  0.000272  2.32E-07 

1  0.000275  2.37E-07 

2  0.000276  2.39E-07 

11.5  0,000276  2.39E-07 

9  0.00028  2,46E-07 

12.5  0.000283  2.51E-07 

3  0.000285  2.55E-07 

5  0.000285  2.55E-07 

11  0.000285  2.55E-07 

12  0.000286  2.58E-07 
10  0.000286  2.58E-07 

5  0.000288  2.6E-07 

20  0.000280  2.62E-07 

8  0.00029  2.64E-07 


Calc  c  Kinetic 

Velocity  Energy 

16.61189  834.1201  24.83595 

16.61189  891.823  30.35506 

20.20768  930.6458  51.04379 

16.61189  930.6458  34.4943B 
26.6351  942.8926  92.22571 
26.6.751  966.4746  99.31999 

16.61189  977.8459  40.01348 
14.67195  999.8273  33.36625 

16.61189  999.8273  42,77303 

35.10688  1031,092  209.5238 

7.860427  1031,092  10.50367 
18.45089  1060.568  62.98057 

20.20768  1079.343  79.62831 
32.40049  1088.49  209.9584 

20.20768  10Q7.486  83.71181 

16.61189  1097.486  56.57079 

37.71883  1106.337  298.7691 

21.89561  1115.049  103.0748 

7.860427  1123  627  13.59299 

23.52464  1140.4  127.234 

12.60321  1140.4  36.53343 

35.10688  1148.604  289.6358 

20.20768  1156.693  98.00408 

7.860427  1187.97  16.06444 

26.6351  1203.009  191.5457 

7.860427  1203.009  16.68231 

20.20768  1203.009  110.2546 

16.61189  1210.39  75.88764 

35.10688  1210.39  338.9355 

29.58371  1210.39  240.6788 

7.360427  1232.009  17.91803 
10.36058  1239.049  31.66577 

7.860427  1239.049  18.22696 

35.10688  1239.049  363.5354 
70.40441  1246.01  1487.034 

16.61189  1266.44  86.92584 

16.61189  1279.702  89.68539 

12.60321  1286.231  52.41753 

12.60321  1286.231  62.41753 

7.860427  1299.094  21.00735 

12.60321  1305.432  54.80014 
41.48587  1305.432  593.7717 

35.10688  1324.083  443.6974 
43.91013  1336.231  713. 3969 

16.61189  1348.163  104.8629 

23.52464  1348.163  210.2953 
40.24864  1348.163  615.5822 
42.70606  1354.05  702.1658 

37.71883  1354.05  547.7433 

23.52464  1359.886  215.8294 
60.47743  1365.673  1444.72 

32.40049  1371.411  419.9167 
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0.81 

12  0.^00291  2.06E-07 

0.86 

6  0.000297  2.77E-07 

0.86 

4  0.000297  2.77E-07 

0.87 

6  0.000298  2.79E-07 

0.88 

12  0.000299  2.81E-07 

0.88 

5  0.000299  2.81E-07 

0.92 

8  0.000304  2.9E-07 

0.92 

4  0.000304  2.9S-07 

0.93 

3  0.000305  2.92E-07 

0.94 

6  0.000306  2.94E-07 

0.95 

10.5  0.000307  2.96E-07 

0.95 

2.5  0.000307  2.96E-07 

0.95 

1  0.000307  2.96E-07 

0.95 

3  0.000307  2.96E-07 

0 . 96 

26  0.000308  2.98E-07 

0.96 

2  0.000308  2.58E-07 

0.97 

9  0.000309  3E-07 

0.98 

3  0.00031  3.t’2E-07 

0.99 

7  0.000311  3.04E-07 

0.99 

2.5  0.000311  3.04E-07 

0.99 

3  0.000311  3.04E-07 

1 

A 

13  0.000312  3.07E-07 

1.01 

4  0.000313  3.09E-07 

1.02 

14  0.000314  3,llE-07 

1.02 

6  0 . 0003 1 4  3.1 lE-07 

1.02 

4  0.000314  3. llE-07 

1.03 

5  0.000315  3. 13E-07 

1.04 

5  0.000316  3. 15E-07 

1.04 

2.5  0.000316  3.15E-07 

1.07 

6  0.000319  3.21E-07 

1.07 

6.5  0.000319  3.21E-07 

1.08 

7  0.00032  3.23E-07 

1 .03 

1  0.00032  3.23E-07 

1 .  12 

8  0.000324  3.31E-07 

1 .  13 

11  0.000325  3.33E-07 

1  .  14 

5.5  0.000326  3.35E-07 

1 .  15 

15  0.000327  3.36E-07 

1 .  16 

9  0.000328  3.38E-07 

1  .  17 

8  0.000329  3.4E-07 

1.18 

4  0.00033  3.42E-07 

1 .  19 

5  0.000331  3.44E-07 

1.2 

6  0.000332  3,46E-07 

1 .2 

17  0.000332  3.46E-07 

1.21 

3.5  0,000333  3.48E-07 

1.22 

6  0,000334  3.5E-07 

1.24 

3.5  0.000336  3.54E-07 

1.25 

9  0.000336  3.56E-07 

1.26 

8  0.000337  3.5aE-07 

1 ,28 

6  0.000339  3.61E-07 

1.3 

5  0.000341  3.65E-07 

1.31 

1.5  0.000342  3.67E-07 

1 .31 

8  0.000342  3.67E-07 

1 . 33 

2  0.000344  3.7IE-07 

1 .33 

10  0.000344  2,71E-07 

1 . 35 

5  0.000345  3.74E-07 

1.38 

9  0.000348  3.8E-07 

42.70606  1377.102  738.6419 

26.6351  1404.874  305.0543 

20.20768  1404.874  175.5906 

26.6351  1410.298  308.6014 
42.70606  1415.681  802.4752 

23.52464  1415.681  243.4999 

32.40049  1436.813  482.9042 

20.20768  1436.813  187.8411 

16.61189  1442  128.3191 

26.6351  1447.151  333.4314 
38.99334  1452.264  722.2283 

14.67195  1452.264  102.2514 
7.860427  1452.264  29.3485 

16.61189  1452.264  131.0786 
72.31052  1457.342  2509.829 
12.60321  1457.342  76.24368 

35.10688  1462.385  597.759 

16.61189  1467.393  135.218 

29.58371  1472.367  433.2219 

14.67195  1472.367  106.5567 

16.61189  1472.367  136.5978 
45.09894  1477.308  1016.957 

20.20768  1482.216  206.2169 
47.43378  1487.092  1147.481 

26.6351  1487.092  361.8085 

20.20768  1487.092  208.2587 

23.52464  1491.936  285.0055 

23.52464  1496.749  287.7726 

14.67195  1496.749  111.9384 

26.6351  1511.004  379.5443 
28.1275  1511.004  423.2687 
29.58371  1515.697  472.6057 
7.860427  1515.697  33.36461 

32.40049  1534.183  587.8834 
40.24864  1538.735  915.2735 
25.10245  1543.261  359.1757 
49.71598  1547,76  1421.215 

35.10688  1552.234  714.8458 

32.40049  1556.681  614.1282 

20.20768  1561.104  240.9267 

23.52464  1565.501  329.2782 

26.6351  1569.874  425.6571 
54.14018  1569.874  1758.695 
18.45089  1574.223  205.9635 

26.6351  1578.548  432.7514 
18.45089  1587.127  211.07 

35.10688  1591.382  770.308 

32.40049  1595.614  661.3688 

26.6351  1604.013  454.0342 

23.52464  1612.324  359.7157 
10.36058  1616.447  70. .70875 

32.40049  1616.447  687.  r. '36 
12.60321  1624.632  105.6 
37.71883  1624.632  946.1,  . 

23.52464  1632.735  373.55fc 

35.10688  1644.741  850.42 


to  N>  rs>  to 


1 ,39 

2  0.000349 

1  .  43 

17.5  0.000352 

1 .47 

2  0.000355 

:  .48 

12  0.000356 

1 . 49 

9  0.000357 

i  .  5 

11  0.000358 

1'  .  5 

17  0.000358 

1 .52 

4  0.000359 

1 .54 

5  0.000361 

1..6 

1  0.000365 

1.6 

3  0.000365 

1.61 

5  0.000366 

1.66 

8  0.00037 

1 .66 

1  0.00037 

1 .66 

25  0.00037 

1 .69 

11  0.000372 

1 .7 

9  0.000373 

1 .71 

4  0.000374 

1 . 73 

2  0.000375 

1 .74 

12  0.000376 

1  ,77 

11  0.000378 

I  .77 

5  0.000378 

1 .78 

1  0.000379 

1 .78 

29  0.000379 

i  .78 

21  0.000379 

1 . 79 

1  0.000379 

1.81 

5  0.000381 

1.83 

3  0.000382 

1 . 86 

12  0.000384 

1 .86 

3  0.000384 

1 .87 

1  0.000385 

1 .89 

6  0,000306 

1 . 92 

8.5  0.000388 

1.94 

22.5  0.00039 

1 . 95 

26  0.00039 

1.95 

3  0.00039  ^ 

1.98 

4  0.000392  ^ 

1.99 
2.04 
2.06 
2. 1 
.  13 
.21 
.  23 
.28 
2.28 
2.31 

2.31 

2.32 

2.34 

2.35 
2.37 

2.44 

2.45 
2.48 
2.51 


Z.B2E-07 
3.89E-07 
3 . 96E-07 
3.98E-07 
4E-07 
4 . 02E-07 
4.02E-07 
4.05E-07 
4.09E-07 
4. 19E-07 
4. 19E-07 
4.21E-07 
4.3E-07 
4.3E-07 
4.3E-07 
4 .35E-07 
4 .37E-07 
4 .38E-07 
4 . 42E-07 
4.43E-07 
4.49E-07 
4 .49E-07 
4.5E-07 
4.5E-07 
4.5E-07 
4.52E-07 
4.55E-07 
4.59E-07 
4.64E~07 
4.64E-07 
4.65E-07 
4.69E-07 
4.74E-07 
4  .,77E-07 
4.78E-07 
4.78E-07 
4.83E-07 
5  0.000393  4.85E-07 

1  0.000396  4.93E-07 
32.5  0.000397  4.96E-07 

14  0.0004  5.03E-07 

2  0.000402  5.07E-07 

5  0.000407  5.2E-07 

5  0.000408  5.23E-07 

5.31E-07 
5.31E-07 
5.36E-07 
5.36E-07 
3 .37E-07 
5.4E-07 
5.42E-07 
5.45E-07 
5.56E-07 
5.57E-07 
5.62E-07 


0.000402 
0.000407 
0.000408 
6  0.000411 
.5  0.000411 
0.000413 
0.000413 
0.000414 
0.000415 
0.000415 
0.000416 
10  0.000421 
2.5  0.000421 
22.5  0.000423 


1 

9 

3 

2 

9 

,5 


3  0.000425  5.66E-07 


12,50321  15.8.704  H0.3945 
55.21973  1:564.27  2180.191 

12.60321  1679.746  116.7481 
42.70606  1682.546  1349.617 
35.10688  1687.329  918.2071 
40.24864  1691.096  1214.965 
54,14018  1691.096  2198.369 
20.20768  1698.579  310.3462 
23.52464  1705.996  426  1248 
7.860427  1727.87  49.42906 

16.61189  1727.87  220.764 

23.52464  1731.462  445.4941 
32.40049  1749.204  871  3272 
7.860427  1749.204  51.28265 
70.40441  1749.204  4114,128 

40.24864  1759.679  1368.86 

35.10688  1763.142  1047  619 
20.20768  1766.593  349  1395 
12.60321  1773.453  137,3975 
42.70606  1776.864  1586  712 

40.24864  1787.018  1433.658 
23.52464  1787.018  489.7668 
7.860427  1790.377  54,98982 
77.89382  1790.377  5400.028 
62.52095  1790.377  3473.894 
7.860427  1793.723  55.29876 
23.52464  1800.379  500.8349 
16.61189  1806.986  252.4989 
42.70606  1816.807  1696.141 
16.61189  1816.807  256.6382 
7.860427  1820.057  57 ..77021 

26.6351  1826.523  670.4099 
33.76638  1836.136  1094.562 
65.52905  1842.489  4165.235 
72.31052  1845.65  5098.091 

16.61189  1845.65  269.0562 

20.20768  1855.067  404.2668 
23.52464  1858.184  550.6417 
7.860427  1873.618  63.02205 
84.17983  1879.721  7298.832 
47.43378  1891.81  2362.462 

12.60321  1900.776  169.1657 
23.52464  1924.281  611.5167 
25.10245  1930.068  702.5982 
26.6351  1944.387  806.7485 
28.1275  1944.387  901.9184 
7.860427  1952.878  71.3632 

35.10688  1952.878  1423.529 
16.61189  1955.692  320.1079 
12.60321  1961.296  185.844 

35.10686  1964.085  1448.179 
31.00708  1969.642  1139.305 
37.71883  1966.845  1735.706 
14.67195  1991.559  263.701 

65.52905  1999.655  5324.631 
16.61189  2007.685  346.3236 
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to  to 


.52 
.54 
.55 
2.59 
2.6 
2.61 
2.62 
2.66 
2.77 
2.82 
2.82 
2.86 
2.87 
2.87 
2.89 
2.94 
2 . 96 

2.98 

2.99 
3.04 
3.07 

3. 1 

3.1 

3.,  21 
3.25 

3.33 

3.34 
3.36 

3.42 
3.45 

3.45 

3.54 
3.57 

3. . 58 
3.63 
3.79 

3.81 

3.82 
■3.84 
3.85 

4 

4.06 

4.1 
4. 15 
4.21 
4.28 

4.3 

4.33 

4.43 

4.45 

4.54 
4.59 

4.62 

4.63 
4.65 
4.74 


14.5  0.000425  5.68E-07 

6.5  0.000426  5.71E-07 

11  0.000427  5.72E-07 

8  0.000429  5.78E-07 

6  0.00043  5.8E-07 

14  0.00043  5.81E-07 

12  0.000431  5.S3E-07 
4  0.000433  5.88E-07 
1  0.000439  6.05E-07 

4  0.000441  6,12E-07 

9  0.000441  6. 12E-07 

8  0.000443  6,18E-07 
1  0.000444  6. 19E-07 

12  0.000444  6. 19E-07 

9  0.000445  6.22E-07 

5  0.000447  6.29E-07 
t  0.000448  6.32E-07 

37  0.00045  6.35E-07 

6.5  0.00045  6.36E-07 

9  0.000452  6.43E-07 
3  0.000454  6,47E-07 

3.5  0.000455  6 . 52E-07 

1  0.000455  6.52E-07 
20  0.000461  6.67E-07 

2  0.000463  6.73E-07 
2  0.000466  6.84E-07 

24.5  0.000467  6.85E-07 

4.5  0.000468  6.S8E-07 

9.5  0.000471  6.96E-07 

1  0.000472  7E-07 

5  0.000472  7E-07 

16  0.000476  7.12E-07 
7  0.00047"  7.16E-07 

22  0 . 000473  7 . 17E-07 

1.5  0 . 00048  7 . 24E-07 

4.5  0.000487  7.45E-07 

8.5  0.000488  7.48E-07 
14  0.000488  7 . 49E-07 

1  0.000489  7.52E-07 

7.5  0.00049  7.53E-07 

5  0.000496  7,72E-07 

18  0.000498  7.8E-07 

12  0.0005  7.85E-07 

H  0.000502  7.92E-07 

7  0.000504  7.99E-07 

8  0.000507  8.08E-07 
29  0.000508  8.11E-07 

2.5  0.000509  8.14E-07 
4  0.000513  3.27E-07 

i  .5  0.000514  8.29E-07 

10  0.000517  a.4E-07 

17  0.000519  8.47E-07 

11  0.00052  8.5E-07 

3  0.000521  8.52E-07 

22  0.000521  8.54E-07 
1  0.000525  8.65E-07 


48.58116  2010.348  2973.762 
28.1275  2015.653  1004.769 
40.24864  2018.294  2065.44 

32.40049  2028,793  1359.48 

26.6351  2031.4  922.2571 

47.43378  2034.001  2936.202 
42.70606  2036.596  2389,187 
20.20768  2046.908  543.1059 
7.860427  2074.743  85.57405 
20.20768  2087.152  575.7739 

35.10688  2087.152  1737.815 

32.40049  2096.974  1501.202 
7.860427  2099.415  88.66337 
42.70606  2099.415  2617.163 

35.10688  2104.281  1780.952 
23.5246^  2116.347  813,5109 

26.6351  2121.135  1049.954 
91.95327  2125.902  12598.55 
28.1275  2128.277  1182,779 

32.40049  2140.075  1595.684 

16.61189  2147.091  423.591 

18.45089  2154.063  527.6751 
7.860427  2154.063  95.7688 

60.47743  2179.245  5870.318 
12.60321  2188.26  258.1166 

12.60321  2206.069  264.4703 
69.44226  2208.275  8053,12 

21.89561  2212.674  805.4218 
36.42382  2225,767  2268.647 
7.860427  2232.257  106.5814 

23.52464  2232.257  954.6301 
51.95014  2251,501  4776.906 

29.58371  2257.843  1562.224 

64.53367  2259.95  7454.624 

10.36058  2270.422  194.825 

21.89561  2303.302  908.4966 

33.76638  2307.346  2172.021 
47.43378  2309.363  4297.43 

7.860427  2313.386  118.6297 
31.00708  2315.393  1850.77 

23.52464  2345.081  1106.818 
56.28949  2356.748  6432.069 
42.70606  2364.462  3738.805 
47.43378  2374.035  4668.674 

29.58371  2385.421  1842.287 

32.40049  2398.57  2246,554 

77.89382  2402.3  13045.01 

14.67195  2407.874  466.0512 
20.20768  2426.269  904.4959 
14.67195  2429.915  478.9672 
37.71883  2446.187  3229.551 
54.140182455.135  6727.01 

40,24864  2460.472  3742.092 
16.61189  2462.246  638.8359 
64.53367  2465.786  9682.682 
7.860427  2481.593  146.4336 
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4.78 

1  0.000526  a,7E-07 

4.79 

9  0.000527  8..7  1E-07 

4.83 

15  0.000528  8.76E-07 

4.86 

1  0.000529  8.79E-07 

4.87 

6  0.000529  a.81E-07 

4.96 

18  0.000533  8.92E-07 

t  .06 

36  0.000536  9..  03E-07 

5.  1 

1  0.000538  9.08E-07 

5.  15 

9  0.000539  9. 14E-07 

5.25 

9  0.000543  9.26E-07 

5.31 

2  0.000545  9.33E-07 

5.42 

4  0.000549  9.46E-07 

5.46 

51  0.00055  9.5E-07 

5.56 

2  0.000553  9.62E-07 

5.57 

10  0.000554  9.63E-07 

5.68 

1  0.000557  9.76E-07 

5.69 

55  0.000558  9.77E-07 

6.65 

1  0.000587  1. 08E-06 

6.65 

6  0.000587  1.08E-06 

5.81 

46  0 . 000592  1 . lE-06 

6.93 

4  0.000596  1 . llE-06 

7.02 

11  0.000598  l,12E-06 

7.04 

23  0.000599  1 . 13E-06 

7.04 

10  0.000599  1.13E-06 

7.05 

14  0 . 000599  1 , 13E-06 

7.2 

10  0 . 000603  1 . 14E-06 

7.35 

1  0.000607  1.16E-06 

7.63 

9  0.000615  1 . 19E-06 

7.75 

10  0.000618  1.2E-06 

7.77 

5  0.000619  1 . 2E-06 

8.21 

11  0.00063  1.25E-06 

8.21 

1  0.00063  1.25E~06 

a  .  28 

15  0.000632  1.25E-06 

8.29 

4  0.000632  1 .26E-06 

3.9 

20.5  0.000647  1.32E-.IJ6 

9 

13  0.00065  1.33E-06 

9.11 

8  0 . 000652  1 . 34E-06 

9. 14 

1  0.000653  1.34E-06 

9.2 

17,5  0.000655  1.35E-06 

9.39 

20  0.000659  1.36E-06 

9.45 

a  0.00066  1.37E-06 

9.57 

1  0.000663  1.38E-06 

9.91 

4.5  0.000671  1.41E-06 

9.96 

26  0.000672  1.42E-06 

10. 14 

10.5  0.000676  I  . 44E-06 

10.25 

6  0 . 000679  1 . 45E-06 

10.25 

3  0 . 000679  t . 45E-06 

10.28 

5  0 . 00067P  :.45E-06 

10  51 

1  0.000686  :.48E-06 

10.7; 

11,3  0.000689  1.49E-06 

10.72 

3  0.000689  I.49E-06 

10,75 

3  0.000689  1.49E-06 

10.84 

19  0.000691  : .5E-06 

10.93 

1  0.000693  1.51E-06 

11.23 

10  0.000600  1.54E-06 

11.42 

9  0.000703  1.5SE-06 

7.860427  2488.554  147.6693 

35.10688  2490.288  2951.82 

49.71598  2497.201  5969.105 

7.860427  2502.36  150.1408 

26.6351  2504.075  1727.458 
56.28949  2519.407  7857.897 
90.25317  2536.226  20608.46 

7.860427  2542.891  157.5551 

35.10688  2551.175  3173.669 

35.10688  2567.581  3235.293 
12.60321  2577.325  421.7229 

20.20768  2595.001  1106.629 
114.4176  2601.369  35739.47 
12.60321  2617.154  441.578 

37.71883  2618.723  3962.247 

7.860427  2635.849  175.4731 
120.4559  2637.395  41279.88 

7.860427  2778.081  205.4395 

26.6351  2778.081  2358.85 

106.6524  2800.185  38730.94 

20.20768  2816.537  1414.934 
40.24864  2828.679  5686.035 
66.51741  2831.361  15574.47 

37.71883  2831.361  5007.939 
47.43378  2832.701  7931,121 

37.71883  2852.651  5121.755 

7.860427  2872.325  227.0647 

35.10688  2908.345  4701.96 

37.71883  2923.513  5513.001 
23.52464  2926.025  2149.993 
40.24864  2980.246  6649.907 

7.860427  2980.246  253.6328 
49.71598  2988.692  10232.75 

20.20768  2989.895  1692.612 
61.50316  3061.501  16832.74 
45.09894  3072.925  9152.615 

32.40049  3085.393  4781.802 

7.860427  3088.777  282.3635 
55.21973  3095.521  14026.41 
60.47743  3116.685  17172.05 

32.40049  3123.31  4960.266 

7.860427  3136.474  295.6475 
21.89561  3173.187  2375.515 
72.31052  2178.515  26039.48 
36.99334  3197.548  7708.837 

26.6351  2209.069  3635.221 
23.52464  3209. e69  ;33c.22 

25. 10688  3212.197  £335.012 

7.860427  3246.207  327. ''';S4 
41.48587  3256.374  9216.369 
16.61189  2257.387  1479.119 

32.40049  3260.423  5642.631 
58.40104  3269.496  18465.89 

7.860427  3278.52  337.6622 

37.71883  3308.245  7068.516 

35.10688  3326.798  7037.534 
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11.43 

1 1 

0 . 000704 

1 .56E-06 

11.6 

4 

0.000707 

1 .57E-06 

11.68 

14 

0 . 000709 

1 .5aE-06 

12.02 

1 

0.000716 

1 .61E-06 

12.46 

31 

0.000724 

1 .65E-06 

12.98 

63.5 

0.000734 

1 .69E-06 

13.22 

6.5 

0.000739 

1 .71E-06 

13.36 

1 

0.000741 

1 ,73E-06 

13.41 

21 

0.000742 

1 .73E-06 

13.55 

1 . 5 

0.000745 

1 .74E-06 

13.92 

19 

0.000751 

i .77E-06 

14.25 

14.5 

0.000757 

1 .8E-06 

14.39 

i 

0.00076 

1 .81E-06 

14.55 

17 

0.000763 

1 .83E-06 

14.86 

10 

0.000768 

1 .85E-06 

14.89 

26 

0.000768 

1 .86E-06 

15.  14 

2 

0.000773 

1 .88E-06 

15.23 

10 

0.000774 

1 .88E-06 

17.98 

10.5 

0.000816 

2.  lE-06 

19.34 

56 

0 . 000838 

2. 2  IE-06 

20.05 

20 

0.000849 

2.26E-06 

20. 13 

2d 

0.00085 

2.27E-06 

20. 18 

15 

0.00085 

2.27E-06 

20.35 

1 

0.000853 

2.28E-06 

21.95 

11 

0.000875 

2.4E-06 

22.86 

15 

0.000887 

2.47E-06 

23.49 

5 

0.000895 

2.51E-06 

24.61 

23.5 

0.000909 

2.59E-06 

26.3 

21 

0.000929 

2.71fc-06 

26.56 

26 

0.000932 

2.73E-06 

27.  16 

8 

0.000939 

2.77E-06 

27.5 

13,5 

0.000943 

2.79E-06 

28 . 77 

16 

0.000957 

2.a8E-06 

29.4 

25 

0.000964 

2.92E-06 

30.34 

15 

0.000974 

2.98E-06 

30.5 

10 

0.000976 

2.99E-06 

31 

1 . 5 

0.000981 

3.02E-06 

31.58 

1 1 

0.000987 

3.06E-06 

32,78 

22 

0.001 

3. 14E-06 

35. 15 

22 

0.001023 

3.29E-06 

35.55 

37 

0.001027 

3.31E-06 

35.73 

25 

0.001029 

3.33E-06 

36.41 

3 

0.001035 

3.37E-06 

37.25 

25 

0.001043 

3.42E-06 

37.41 

15 

0.001045 

3.43E-06 

39.15 

17.5 

0.001061 

3.53E-06 

40.62 

51 

0 . 001074 

3.62E-06 

42.  13 

18 

0.001087 

3.71E-06 

44.79 

22 

0.001109 

3.87E-06 

46.34 

1 

0.001122 

3.95E-06 

47.32 

13 

0.00113 

4.01E-06 

50.21 

17 

0.001152 

4. 17E-06 

50.45 

19 

0.001154 

4. 19E-06 

52.11 

1 

0.001167 

4.28E-06 

53.57 

14 

0.001178 

4.36E-06 

58.  i 

17 

0.00121 

4.6E-06 

40.24864  3327.769  9258.032 
20.20768  3344.186  2368.432 
47.43378  3351.856  12139.79 

7.860427  3384.069  371.2358 
81.51368  3424.868  41395.11 
132.8425  3471.864  114529.8 
28.1275  3494.012  5233.5 

7.860427  3505.419  412.7326 
62.52095  3509.786  26208.97 
10.36058  3521.958  727.2393 
58.40104  3553.728  23738.34 
48.58116  3581.591  16815.92 

7.860427  3593.282  444.5526 

54.14018  3606.551  21324.18 

37.71883  3631.985  10570.73 

72.31052  3634.427  38928.5 

12.60321  3654.655  1202.426 

37.71883  3661.882  10833.94 
38.99334  3870.208  13669.12 
121.9433  3965.427  143794.6 
60.47743  4013.37  36666.63 

72.31052  4018.701  52627.99 

49.71598  4022.025  24939.24 

7.860427  4033.288  628.6758 

40.24864  4136.337  17778.99 

49.71598  4192.726  28251.29 
23.52464  4230.894  6499.786 
67.49694  4297.095  56062.89 
62.52095  4393.288  51401.64 

72.31052  4407.718  69438.62 
32.40049  4440.662  14256.17 
46.27326  4459,115  29441.7 

51.95014  4526.728  38622.49 

70.40441  4559.531  72864.68 

49.71598  4607.616  37495,37 

37.71883  4615.701  21696.32 
10.36058  4640.787  1663.795 

40.24864  4669.551  25579.06 

64.53367  4727.963  68257.7 

64.53367  4839.266  73192.75 
91.95327  4857.554  150294.8 

70.40441  4865.739  88552.9 

16.61189  4896.412  5023.762 

70.40441  4933.781  92320.05 

49.71598  4940.335  46232.76 
55.21973  5016.279  59688.46 
114,4176  5078.293  265885.9 
56.28949  5140.455  66744.6 

64.53367  5246.441  93266.09 

7.860427  5306.275  1431.589 

45.09894  5343.42  48122.42 

54.14018  5450.059  73586.75 
58.40104  5458.728  86034.44 

7.860427  5517.955  1609.843 
47.43378  5569.014  60265.27 

54.14018  5721.762  85150.17 
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22 
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5 
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27 

0 

.001332 

5 
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5 

.69E- 

■06 
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,97 

6 

0.00143 

6 
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■06 
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.  42 

6 

0 

.001471 

1 

6.8E- 

■06 

105, 

.36 

7 

0 

.001475 

6 

.  84E- 

■06 
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,  52 

25 

0 

.001481 

6 

.89E- 

■06 

126. 

21 

19 

0 

.001567 

7 

.71E- 

.06 

131 . 

11 

1 

0 

.001587 

7 

.9iE- 

■06 

132, 

53 

21 

0 

.001593 

7 

.97E- 

.06 

166. 

32 

11 

0 

.001718 

9 

.  27E- 

.06 

169 

1.6 

1 

0 

.001729 

9 

.39E- 

06 

175. 

53 

12 

0 

.001749 

9 

.61E- 

06 

200 

1 . 3 

75 

0 

.001828 

1, 

.05E- 

05 

204. 

77 

54 

0 

.001841 

1 

.06E- 

05 

237. 

72 

10 

0. 

.001935 

1„ 

.:18E- 

05 

310. 

79 

7 

0 

.002116 

1  , 

.41E- 

05 

314, 

53 

21 

0 

.002124 

1 , 

.42E- 

05 

321 . 

35 

7 

0.00214 

1 , 

.44E- 

05 

355. 

35 

1 

0. 

.002212 

1 . 

.  54E- 

05 

359. 

52 

2 

0. 

.002221 

1  . 

,  55E- 

05 

368. 

22 

5 

0. 

.002239 

1 , 

.  57E- 

05 

439. 

48 

15 

0. 

.002375 

1, 

.77E- 

05 

452 

.  2 

21 

0. 

002398 

1  . 

.81E- 

05 

723. 

43 

21 

0. 

002804 

2. 

.47E- 

05 

1330. 

52 

49 

0. 

003436 

3. 

71E- 

05 

3016. 

46 

74 

0. 

004513 

6.4E- 

05 

5021 

.9 

64 

0. 

005349 

8. 

99E- 

05 

29.58371  6004.931 
47,.  43378  6016.235 

7.860427  6045.488 

7.860427  6143.572 
64.53367  6245.517 
74,19339  6300.142 
48.58116  6367.384 

26.6351  6763.678 
26.6351  6956.631 

29.58371  6977.444 

70.40441  7002.957 
58.40104  7410.298 

7.860427  7504.983 

62.52095  7531.98 

40.24864  8124.299 

7.860427  8177.359 
42.70606  8271 .575 
148.7897  8643.668 
118.9598  8707.494 
37.71883  9151.515 

29.58371  10006.76 

62.52095  10046.74 

29.58371  10118.84 

7.860427  10463.81 
12.60321  10504.58 
23.52464  10588.64 
49.71598  11231.84 

62.52095  11339.17 

62.52095  13261.82 

111,342  16248.44 
147.4356  21345.37 
133.554  25298.44 


29389.07 

75981.26 
2117. 108 
2221 .836 
157338.4 

213470.7 
94487.75 
34041.93 

37039.26 
46105.31 
263998.2 

215231.1 
4050.402 

259021.2 

134715.3 
5239.48 

160066.4 
2217158 
1448895 

169103.3 
136001 

614728.4 

140622. 1 
10977.88 

28553.26 

101888.1 

543126.7 

883795.4 
1413897 
8247255 

32784775 

44787013 
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HOT  6579 


Mass 


0.  12 
0.14 
0.21 
0  .,25 
0.25 
0.26 
0, 27 
0.33 
0.34 
0.34 
0 . 36 
0 . 36 
0 . 37 
0.37 
0.42 
0.43 
0.44 
0.44 
0.45 
0.5 
0.-5 
0.5 
0.51 
0 . 52 
0.53 
0.53 
0 . 54 
0,55 
0.58 
0.59 
0.59 
0 . 59 
0.6 
0 . 6 
0.61 
0.62 
0 ,62 
0.64 
0.65 
0,66 
0 . 67 
0.68 
0.7 
0.7 
0,71 
0.71 
0,73 


Kho  =  31.04 
Hhosubs  =  7833 
Beta  =0.681112 
Bsubs  =6.766796 


Pene-  r  a 

tration 

53.4  0,000154  7.46E-0a 
4.5  0.000162  a.26E-08 

26.7  0.000186  1 .08E-07 
5  0.000197  1 ,22E-07 

1  0.000197  1..22E-07 
3  0 . 000199  1  .  25E-07 
5  0 . 000202  1  . 28E-07 
3  0 . 000216  1  . 46E-07 

11  0.000218  1.49E-0'7 

71.4  0.000218  1.49E-07 
3  0,000222  1.55E-07 

2  0.000222  1.55E-07 
51  0.000224  1 .58E-07 
15  0.000224  1.58E-07 

10  0.000234  1.72E-07 
5  0,000236  1.75E-07 
1  0.000238  1.77E-07 

5  0 . 000238  1 . 77E-07 

56.4  0.000239  1.8E-07 

13  0.000248  1.93E-07 

11  0.000248  1.93E-07 

6  0,000248  1.93E-07 

13  0,00025  1.96E-07 

I  0,000251  i.98E-07 

50.4  0.000253  2.01E-07 

14  0.000253  2.01E-07 

1  0.000254  2.03E-07 
9  0.000256  2.06E-07 
1  0 . 00026  2 . 13E-07 

9.5  0 ,000262  2 . 16E-07 
1  0.000262  2,16E-07 

1  0.000262  2. 16E-07 
25.7  0.000263  2.iaE-07 

6  0.000263  2. 18E-07 

3  0.000265  2.2E-07 

7  0.000266  2.23E-07 

13  0.000266  2.23E-07 
10  0.000269  2.28E-07 

10.5  0.000271  2.3E-07 

2  0.000272  2.32E-07 

8.5  0.000273  2.35E-07 

14  0.000275  2.37E-07  . 
2  0.000277  2.42E-07 

12  0.000277  2,42E-07 
1  0.000279  2.44E-07 
1  0.000279  2.44E-07 
20  0.000281  2.49E-07 


c  Kinetic 
Velocity  Energy 

118.058  728.7321  836.2608 
21.89561  767.1556  33.55924 
73.6309  878,174  569.2585 

23.52464  930.7238  69.1761 

7.860427  930.7238  7.72329 

16.61189  942.9715  35.87416 

23.52464  954.9092  74.71018 

16.61189  1020.968  45,53258 
40.24864  1031.178  275  392 

143.8872  1031 . 178  3519.601 

16.61189  1051.014  49.67191 

12.60321  1051.014  28,59138 
114.4176  1060.656  2421.905 
49.71598  1060.656  457.2606 
37.71883  1106.43  298.7691 

23.52464  1115.142  118.9829 

7.860427  1123.721  13.59299 

23.52464  1123.721  .21.7499 
122.5359  1132.17  3378.386 

45.09894  1172.638  508.4786 
40.24864  1172.638  404.9883 
26.6351  1172.638  177.3571 
45.09894  1180.405  518.6482 

7.860427  1188.07  16.06444 

113.499  1195.637  3413.736 
47.43378  1195.637  596.2403 

7.860427  1203.11  16.68231 

35.10688  1210.491  338.9355 

7.860427  1232,112  17.91803 
36.42382  1239.153  391.3748 

7.860427  1239.153  18.22696 

7.860427  1239.153  18.22696 
71.74118  1246.114  1544.039 
26.6351  1246,114  212.8286 

16.61189  1252.999  84.16629 
29.58371  1259.809  271,3107 
45.09894  1259.809  630.5135 
37.71883  1273.212  455.2671 
38.99334  1279.809  494,1562 

12.60321  1286.339  52.41753 
33.76638  1292.803  381.9565 
47.43378  1299.203  764.9875 

12.60321  1311.818  55.59435 
42.70606  1311.818  638.3325 

7.860427  1318.035  21.93414 

7.860427  1318.035  21.93414 
60.47743  1330.296  1334.994 
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ro  ^o  to 


1.35 
1 .39 
1.4 
1.41 
1 .44 
1  .  48 
1 . 49 
1  .51 
1.59 
1.61 
!  •.  66 
1,66 
1 .72 

1.74 

1 .75 
1  .  7*1 


1  .85 
I  86 

1.87 

1 .88 

1.92 

1.93 
1.95 
1.98 
2.04 
2,  14 
2. 16 
2.16 
2.  19 
2 .21 

.21 
.2. 
.25 
.  26 
2.26 
2.3 
2.32 

2.34 

2.35 
2.39 
2.38 
2.42 
2.48 
2,51 
2.55 

2.55 

2.56 
2.6 

2.61 

2,72 

2.77 

2.77 


5  0.000341  3.65E-07 

6  0.000345  3.74E-07 
2  0.000349  3.82E-07 

1  0.000349  3.84E-07 

11  0.00035  3.85E-07 
19  0.000353  3.91E-07 

2  0.000356  3.9aE-07 

9  0.000357  4E-07 

2  0.000358  4.03E-07 
8  0 . 000365  4 . iaE-07 

5  0.000366  4.21E-07 

16  0.00037  4.3E-07 

1  0.00037  4.3E-07 

1  0,000374  4.4E-07 

1  0.000376  4.43E-07 

16.5  0,000376  4.45E-07 

6  0.00037”  4.47E-07 

'  00037  8  4.4  3E-i'- 

'.  0.00037?  4.5E-07 

16  0.000382  4.59E-07 

3  0.000333  4.62E-07 

12  0.000334  4.64E-07 

1  0,000385  4.65E~07 

2  0.000386  4.67E-07 

8  0.000386  4.74E-07 

15  0.000389  4.75E-07 

3  0.00039  4.78E-07 
37,7  0.000392  4.83E-07 

1  0.000396  4.93E-07 

9  0.000403  5.09E-07 

13  0 . 000404  5 . 12E-07 

2.5  0.000404  5.12E-07 

1  0 . 000406  5 . 17E-07 
6  0.000407  5,2E-07 

1  0.000407  5.2E-07 

5  0.000407  5.2E-07 

2  0.000409  5.26E-07 

19  0.00041  5.28E-07 

32  0.00041  5.28E-07 

2.5  0.000412  5.34E-07 
11  0.000414  5.37E-07 

2  0.000415  5.4E-07 

9  0.000415  5.42E-07 
8  0.000417  5.46E-07 

11  0.000417  5.46E-07 
a  0.000419  5.53E-07 

16  0,000423  5.62E-07 

12  0.000425  5.66E-07 
11  0.000427  5.72E-07 

16  0.000427  5.72E-07 
23  0.000427  5.74E-07 

6  0.00043  5.8E-07 

17  0.00043  5.eiE-07 

7  0.000436  5.97E-07 
27  0.000439  6.05E-07 

1  0.000439  6,05E-07 


23.52464  1612.459  359.7157 

26.6351  1632.872  478.8642 

12.60321  1648.842  110.3945 

7.860427  1652.787  43.25042 

40.24864  1656.713  1142.067 
58.40104  1668.38  2455.691 

12.60321  1683.687  117.5422 

35.10688  1687.471  918.2071 

12.60321  1694.987  119.925 

32.40049  1724.407  834.5845 

23.52464  1731.607  445.4941 

51.95014  1749.35  2240.018 

7.860427  1749.35  51.28265 

7.860427  1770,178  53.13623 

7.860427  1777.013  52.7541 

53,05045  1780.411  2462.55'' 

:£.535;  1732.735  624.:371. 

23.52464  i'TBJ.lz’f  ‘iS‘5  - 

360427  -1790.527  :  4  .  riic' 

61.95014  1307.137  2469.41c 

16.61189  1313.697  255.2584 

42.70606  1816.959  1696.141 

7.860427  1820.209  57,77021 

12.60321  1823.448  149.3105 

32.40049  1836.29  1007.8 

49.71598  1839.472  2385.17 

16.61189  1845.804  269.0562 
93,13463  1855.222  8587.318 

7.860427  1873.775  63.02205 

35.10688  1903.906  1318,767 
45.09894  1909.818  2196.628 
14.67195  1909.818  232.4874 

7.860427  1918.619  67.65602 

26.6351  1924.442  782.9185 

7.860427  1924.442  68.27388 

23.52464  1924.442  611.5167 

12.60321  1935.983  178.6961 
58.40104  1938.847  3854.07 

83.29556  1938.847  7840.111 
14.67195  1950.219  247.5561 

40.24864  1955.856  1379.146 

12.60321  1961,46  185.844 

35.10688  1964.25  1448.179 

32.40049  1972.573  1249.252 

40.24864  1972.573  1927.744 

32.40049  1983.563  1270.248 

51.95014  1999.822  3346.533 

42.70606  2007.854  2288.878 

40.24864  2018.463  2065,44 

51.95014  2018.463  3440.992 
66.51741  2021.098  5663.444 

26.6351  2031.571  922.2571 
54.14018  2034.172  3825.162 
29.58371  2062.357  1190.266 
74.19339  2074.917  7623.952 

7.860427  2074.917  85.57405 
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: .  79 

1  0.00044  6.07E-07 

2 . 82 

4  0 . 00044  1  6 .  12E-07 

2.82 

1  0.000441  6.12E-07 

2 . 82 

9  0.000441  6, 12E-07 

2.84 

2  0 . 000442  6  .  :'5E-07 

2.84 

13  0.000442  6. 15E-07 

2.87 

3  0,000444  6.19E-07 

2 . 87 

1  0 . 000444  6 . 19E-07 

3.04 

5,5  0.000453  6.43E-07 

3 . 08 

6  0.000454  6.49E-07 

3. 1 

5  0.000455  6.52E-07 

3. 13 

11  0.000457  6.56E-07 

3.48 

I  0.000473  7.04E-07 

3.53 

1  0 . 000476  7 . 1 lE-07 

3.57 

4  0 . 000477  7 . 16E-07 

3 ,77 

5.5  0.000486  7.43E-07 

3, 79 

73  0.000487  7.45E-07 

4 

2  0.000496  7.72E-07 

4 . 08 

1  0.000499  7.a3E-07 

4 . 08 

2  0.000499  7.a3E-07 

4,15 

1  0.000502  7.92E-07 

4.3 

9  0 . 000508  8 . 1 lE-07 

4 ,36 

9  0.00051  8 . 18E-07 

4 . 44 

7  0.000513  8.28E-07 

4 . 59 

30.5  0.000519  a.47E-07 

4 ,76 

12  0,000525  8.67E-07 

4 . 92 

12  0.000531  a.87E-07 

4 . 94 

1  0.000532  8.89E-07 

5 . 07 

3  0.000537  9.05E-07 

5.09 

20  0.000537  9.07E-07 

5.11 

2  0.000538  9.09E-07 

5 . 54 

29.5  0.000553  9.6E-07 

5 . 59 

14  0.000554  9.65E-07 

6 

1  0.000568  1.01E-06 

6.6 

1  0.000586  1.08E-06 

6.78 

25  0.000591  1 . lE-06 

7.28 

49.4  0.000605  1 . 15E-06 

7 . 78 

10  0.000619  1.2E-06 

7 . 35 

B  0.000621  1 , 21E-06 

2  • 

'.7  0.000627  :.24E-06 

3.35 

28  0.000634  l,26E-06 

8.99 

1  0.00065  1.33E-06 

9.66 

9  0.000665  1.39E-06 

10 . 99 

8  0.000694  1.52E-06 

11.05 

8  0.000696  1.52E-06 

11.75 

33  0.00071  1.58E-06 

12.6 

49  0.000727  1.66E-06 

14.29 

IS  0.000758  1.81E-06 

16.07 

11.5  0.000788  1.95E-06 

17.36 

1  0.000809  2.06E-06 

17.6 

1  0.000813  2.07E-06 

25.03 

6  0.000914  2.62E-06 

25.  1 

24.7  0,000915  2.63E-06 

25.21 

28  0.000916  2.64E-06 

25,76 

25  0.000923  2.67E-06 

26.48 

1  0.000931  2.72E-06 

28. 19 

34  0.000951  2.84E-06 

28.55 

20  0.000955  2.86E-06 

29.33 

67  0.000963  2.92E-06 

29.84 

50  0.000969  2.95E-06 

45.26 

55  0.001113  3.89E-06 

7.860427  2079.899  86.19192 
20.20768  2087,227  575.7739 

7.860427  2087.227  87.11871 

35.10688  2087.327  1737.815 

12.60321  2092,25  223.5542 

45.09894  2092.25  2888.;159 

32.40049  2099.691  1506.451 

7.860427  2099.591  88.66337 
25.10245  2140.254  957.802 

26.6351  2149.6  1092.52 

23.52464  2154.243  857.7836 
40.24864  2161.17  2535.227 

7.860427  2238.896  107.5082 

7.860427  2249,568  109.0529 
20.20768  2258.033  728.9053 
25.10245  2299.436  1137.801 
146.0756  2303.495  40435  67 

12.60321  2345.277  317.682 

7.860427  2360.809  126.0441 

12.60321  2360,809  324.0356 

7.860427  2374.234  128.2066 

35.10688  2402.501  2649.859 

35.10688  2413.624  2686.834 
29.58371  2428.297  1942.934 
80.61588  2455.34  14915.02 

42.70606  2485.286  4340.661 
42.70606  2512.827  4486.566 

7.860427  2516.227  152.6122 
16.61189  2538.108  699.5461 
60.47743  2541.441  9308.386 

12.60321  2544.766  405.8383 
78.80605  2614.232  17202.79 
47.43378  2622.073  6286.648 

7.860427  2684.672  185.359 

7.860427  2771.333  203.8949 
70.40441  2796.302  16803.49 
111.9603  2863.417  45627.77 
37.71883  2927.525  5534.341 

32.40049  2936.279  4120.433 
54,14018  2967.125  11871.19 
76.05414  2997.342  24149.17 

7.860427  3072.044  277.7295 

35.10688  3146.539  5952.94 

32.40049  3284.783  5768.606 

32.40049  3290.75  5800.1 

85.05977  3358.82  42506.6 

111.342  3437.935  78101.35 
49.71598  3585.24  17660.15 

41.48587  3728.316  13828.86 

7.860427  3825.522  536.3053 

7.860427  3843.071  543.7196 
26.6351  4321.764  8878.498 

69.82787  4325,789  61192.93 
76.05414  4332.099  72910.25 
70.40441  4363.377  63843.34 

7.860427  4403.657  818.0509 

86.80702  4496.478  106212.3 
60.47743  4515.538  52211.09 
137.7868  4556.291  278418 

112.8847  4582.549  190124.8 
120. 4559  5265.169  328352.8 
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40,  ?.4 
48 . 4 
57.73 
73.77 
75.36 
77, 17 
79.29 
101.88 
136. 16 
136.41 

186.3 

233.3 
268  ..55 


70 

0 

.001121 

•7 

.95E- 

■06 

72 

0 

.001138 

4 

.  07E- 

•06 

46 

0 

.001207 

4 

.58E- 

•06 

9 

0 . 00131 

5 

.39E- 

•06 

57 

0 

.001319 

5 

.47E- 

■06 

1 

0.00133 

5 

.56E- 

•06 

67 

0 

.001342 

5 

.66E- 

•06 

68 

0 

.001459 

6 

.  69E- 

■06 

40 

0 

.001607 

8 

.  IIE- 

•06 

38 

0 

.001608 

8 

.  12E- 

•06 

64 

0 

.001784 

lE- 

•05 

1 

0 

.001923 

1 

.  16E' 

•05 

64 

0 

.002015 

1 

..28E- 

•05 

141.9595 
144  ..7097 
106.6524 
35. 10688 
123.4223 
7.860427 
137.7868 
139. 1842 
96.968 
93.63878 
133.554 
7.860427 
133.554 


5302.9  465926 
5384.217  506769.6 
5710 . 069  328331 . 5 
6196.323  45430.5 
6240.525  573981.8 
6290.092  2384.025 
6347  ..  172  752668 . 4 
6900 . 339  986822 . 1 
7600.765  640142.2 
7605.414  598036.5 
8438.108  1661487 
9095.203  7207.374 
9531.967  2395020 
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SHOT  6584 


Rho  =  31.04 
Bhosuba  =  7833 
Beta  =0,681112 
Bsubl  =6.766796 


.-ene- 

tration 


0.28 
0.29 
0.3 
0.3 
0.32 
0.32 
0.32 
0.32  75 
0.33 
0.34 
0.34 
0.35 
0.36 
0.36 
0.37 
0.39 
0.4 
0.4 
0.42 
0.43 
0.46 
0.47 


2.6 

69.23 

14.9 

24 
9.8 

3 

1 

5 

37 

8.7 

16 

36 

17 . 6 
32.  1 

I 

27.5 

19.8 

14 

20.7 
39 

.  14093 

25 
67 
14 


0 . 000 1 4 
0.00014 
0.000145 
0.00015 
0.00C15 
0.000154 
0.000158 
0.000162 
0.000162 
0.000162 
0.000166 
0.000173 
0.000173 
0 . 000173 
0.000173 
0.000176 
0.00019 
0.00018 
0.000183 
0.000186 
0.000189 
0.000189 
0.000191 
0.000191 
0.000191 
0.000191 
0.000194 
0 . 000204 
0.000204 
0 . 000204 
0.000207 
0.000209 
0.000209 
0.000214 
0.000214 
0.000214 
0.000214 
0.000216 
0.000218 
0.000218 
0.00022 
0.000222 
0.000222 
0.000224 
0.000228 
0.00023 
0.00023 
0.000234 
0.000236 
0.000241 
0.000243 


6.16E-08 
6. 16E-08 
6.6E-08 
7,04E-0e 
7.04E-08 
7. 46E-08 
7 .87E-08 
8.26E-08 
8.26E-08 
a.26E-08 
e.65E-08 
9.41E-08 
9.41E-08 
9,41E-08 
9.41E-08 
9 . 77E-0e 
1 ,01E-07 
1 .01E-07 
1 .05E-07 
1 .08E-07 
1 . 12E-07 
1 . 12E-07 
1  .  15E-07 
1 . 15E-07 
1 . 15E-07 
1 . 15E-07 
1 . 18E-07 
1 .31E-07 
1 .31E-07 
1 .31E-07 
1 .34E-07 
1 . 37E-07 
1 .37E-07 
1 .43E-07 
1 . 43E-07 
1 .43E-07 
1 .43E-07 
1 .46E-07 
1 .49E-07 
1 .49E-07 
1 .52E-07 
1 . 55E-07 
1 . 55E-07 
1 .58E-07 
1 .64E-07 
1 .66E-07 
1..66E-07 
1 .72E-07 
1 .75E-07 
1 .83E-07 
1  .a5E-07 


Calc 

Velocity 

33.22319 
22.87956 
90.25317 
77.89382 
27,5351 
26.6351 
12.60321 
20.20768 

16.61189 
77 .  .39.382 
70.40441 
20.20768 
78.44175 
120.3067 
46.73908 
31 . 5679 
15.06918 
140.8941 
49.48999 
68.47383 
37.20336 

16.61189 
7.860427 
23.52464 
91.95327 
34.30552 
51.95014 
90.25317 
55 . 43446 
83.47277 
7.860427 
92.79781 
60.06485 
47.43378 
61  >91122 
95.3102 
148.9801 
70.40441 
137.7868 
47.43378 

16.61189 
33.76638 
37.71883 
54. 14018 
74.75389 
62.52095 
9.398409 
61.91122 
119.2597 
14.26963 
94.97702 


662.097 
662.097 
685.7631 
707.8997 
707.8997 
728.7321 
748.437 
767. 1556 
767. 1556 
767.  1556 
785.0028 

818.4468 

818.4468 

818.4468 

818.4468 
834. 19 
849.3604 
849.3604 
864 . 0074 
878. 174 
891.8977 
891.8977 

905.2115 

905.2115 

905.2115 

905.2115 
918. 1449 

966.5555 

966.5555 

966.5555 
977.9278 
989.0416 
989.0416 

1010.549 

1010.549 

1010.549 

1010.549 
1020.968 
1031 . 178 
1031 . 178 
1041,19 
1051.014 
1051.014 
1060.656 
1079.433 
1088.581 
1088.581 
1106.43 
1115. 142 
1140.495 
1148.7 


Kinetic 

Energy 

49.6701 
23.55635 
407.2817 
333.7096 
41.69998 
42.56571 
10.32466 
28.58452 
19.31685 
424 , 72 15 
371.7586 
34.70978 
523.0143 
1230.264 
185.6861 
09.68788 
21.5726 
1885.858 
244.926 
492.3098 
152.2499 
30.35506 
7.105427 
63.64201 
972.3714 
135.3399 
323.8581 
1140.339 
430.217 
975.4784 
8.959016 
1291.715 
541 . 1679 
359.9941 
613.2799 
1453.445 
3551.211 
817.8689 
3227.485 
382.4938 
48.29213 
205.2304 
256.0878 
542.2644 
1089.688 
781.7739 
17.66602 
804.9298 
3057.921 
46.83311 
2119.849 
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0,49 

2  ^ 

0.000246 

1 .91E-07 

0.49 

21 

0.000246 

1 .9i.E-07 

0.5 

64.4 

0.000248 

1 .93E-07 

0.5 

22.5 

0.000248 

1 .93E-07 

0.5 

19.8 

0.000248 

i .93>-07 

0.51 

3 

0.00025 

1 .96E-07 

0.51 

9.7 

0.00025 

1 .96Ii:-07 

0.52 

17 

0.000251 

1 .98E-07 

0.55 

5 

0.000256 

2 . 06E'07 

0.57 

3 

0.000259 

2. 1 3E-07 

0.58 

5 

0.00026 

2. 13E-07 

0.59 

36 

0.000262 

2. 16E-07 

0.6 

26 

0,000263 

2. 18E-07 

0.63 

33.54 

0.000266 

2.25E-07 

0.64 

2 

0.000269 

2.28E-07 

0.65 

4.7 

0.000271 

2,3E-07 

0.65 

35.25 

0.000271 

2.3E-07 

0.66 

1 1 

0.000272 

2.32E-07 

0.68 

42.72002 

0.000275 

2.37E-07 

0,69 

32.56 

0.000276 

2.39E-07 

0.71 

7.8 

0.000279 

2.44E-07 

0,72 

39 

0.00028 

2.46E-07 

0.72 

7 

0.00028 

2.46E-07 

0.73 

7.3 

0.000281 

2.49E-07 

0.74 

35 

0.000283 

2.51E-07 

0.75 

31 

0.000284 

2.53E-07 

0.78 

1 

0.000288 

2.6E-07 

0.78 

18 

0.000286 

2.6E-07 

0.79 

35.25975 

0.000289 

2.62E-07 

0.8 

26 

0.00029 

2.64E-07 

0.8 

40 

0.00029 

2.64E-07 

0.81 

54.4 

0.000291 

2,66E-07 

0.81 

28.6 

0.000291 

2 . 66E-07 

0.85 

1 

0.000296 

2.75E-07 

0,85 

30 

0.000296 

2.75E-07 

0.87 

15 

0.000298 

2.79E-07 

0.92 

12.9 

0.000304 

2.9E-07 

0.92 

3.2 

0.000304 

2.9E-07 

0.94 

18 

0.000306 

2.94E-07 

0.97 

43.66 

0.000309 

3E-07 

0.98 

54.6 

0.00031 

3.02E-07 

1.02 

25 

0.000314 

3. 1 lE-07 

1.02 

44 

0.000314 

3. llE-07 

1.04 

43 

0.000316 

3. 15E-07 

1.04 

31 

0.000316 

3. 15E-07 

1.06 

18 

0.000318 

3. 19E-07 

1.09 

5 

0.000321 

3.25E-07 

1.09 

20.3 

0.000321 

3  25E-07 

1,11 

42 

0.000323 

3. 29E-07 

1 .  14 

26 

0.000326 

3.35E-07 

1,14 

8 

0.000.326 

3.35E-07 

1 .  15 

26 

0.000327 

3.36E-07 

1.15 

3 

0.000327 

3.36E-07 

1.15 

5 

0.000327 

3.36E-07 

1.23 

28 

0.000335 

3.S2E-07 

1.25 

24 

0.000336 

3.56E-07 

64.53367  1164.768  1020.326 
62.52095  1164.768  957.6731 
134.122  1172.638  4497.178 
65.52905  1172.638  1073.514 
60.06485  1172.638  901.9465 

16.61189  1180.403  70.36854 
36.94437  1180.405  348.046 

54.14018  1188.07762.1013 

23.52464  1210.491  152.1874 

16.61189  1224.99  78.64719 

23.52464  1232.112  160.4885 
90.25317  1239.153  2402.962 

72.31052  1246.114  1568.643 
86.00535  1266.546  2330.03 

12.60321  1273.212  50.82912 
22.55382  1279.809  165.3193 
88.9682  1279.809  2572.486 
40.24864  1286.339  534.5845 
101..4119  1299.203  3496.685 
84.28565  1305.541  2450.905 
31.84656  1318.035  360.0422 
95.3102  1324.194  3270.252 
29.58371  1324.194  315.0704 
30.44148  1330.296  338.2395 
88.53794  1336.343  2900.418 
81.51368  1342.336  2491.68 

7.860427  1360  24.09666 

56.28949  1360  1235.718 

88.98496  1365.788  3127.738 

72.31052  1371.526  2091.525 
96.968  1371.526  3761. 117 
119.5593  1377.217  5789.244 
77.16041  1377.217  2411.26 

7.860427  1399.524  26.25919 
79.71337  1399.524  2700.544 
49.71598  1410.416  1075.18 

44.86236  1436.934  925.8105 
17.35841  1436.934  138.6046 

56.28949  1447.272  1489.198 
102.9264  1462.507  5138.016 
119.8585  1467.516  7039.372 
70.40441  1487.216  2527.958 
103.4717  1487.216  5460,258 
101.8641  1496.674  5395.673 
81.51366  1496.874  3455.13 

56.28949  1506.409  1679.309 

23.52464  1520.488  301.6078 
61.09384  1520.488  2034.189 
100.2445  1529.731  5577.177 

72.31052  1543.39  2980.423 

32.40049  1543.39  598.3813 

72.31052  1547.89  3006.567 

16.61189  1547.89  158.6742 

23.52464  1547.89  318.21 

70.40441  1582.982  3048.42 

68.47383  1591.515  2930.416 
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1.25 

34 

0.000335 

3 . 56E-07 

86.80702 

1591.515 

4709.661 

1.25 

16.7 

0.000336 

3.56E-07 

53.48759 
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SECTION  1  -  INTRODUCTION 


This  summer  I  participated  in  the 
Apprenticeship  Program  for  the  second  time, 
have  it,  I  was  given  the  chance  to  work  under 
who  served  as  my  mentor  last  year  when  Cpt. 
absent.  Under  his  direction  I  broadened  my 
knowledge  in  the  scientific  and  technical 
addition,  I  now  understand  more  fully  the  work 
in  general  and  MNW  in  particular. 


High  School 
As  luck  would 
Mike  Nixon, 
Mark  Hand  was 
horizons  and 
fields.  in 
done  at  AFATL 


Due  to  Mike  Nixon's  upcoming  departure  to  the 
University  of  Florida  to  pursue  his  master's  degree  in 
engineering  mechanics,  my  project  this  summer  focused  on 
creating  a  user-friendly  environment  for  his  temporary 
replacements  to  work  in  during  his  abscence.  This  required 
the  modification  of  numerous  post-process  EPIC  utilities  and 
their  subsequent  integration  into  an  easy  access  information 
and  initiation  tree  called  PHENIX.  To  complete  my  tasks,  I 
had  to  develop  an  understanding  of  various  computer 
programming  languages,  graphical  environments,  and  the  EPIC 
hydrocodes . 


SECTION  2  -  EPIC  HYDROCODES 


The  EPIC  hydrocodes  are  extremely  large  FORTRAN 
programs  that  simulate  the  interaction  of  matter  and  energy 
in  nature.  There  are  two  EPIC  hydrocodes:  EPIC2  and  EPIC3. 
EPIC2  is  a  two  dimensional  hydrocode  and  EPIC3  simulates 
interactions  three  dimensionally.  Both  hydrocodes  have 
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their  own  separate  utilities  for  processing  inputs  and 
outputs,  but  generally  they  perform  the  same  function,  just 
on  a  different  scale.  EPIC3  output  files  are  enormous  and 
dwarf  the  EPIC2  outputs  in  both  size  and  complexity.  This 
leads  to  problems  that  will  be  discussed  later  under  the 
section  about  TRANIX,  the  EPIC3  file  size  reducing  program. 

EPIC  calculations  are  characteristically  run  through 
three  stages:  a  pre-processor,  the  main  program,  and  the 
post-processor.  The  pre-processor  is  basically  the  input 
data  deck.  The  input  data  deck  is  a  file  that  contains 
values  for  all  the  variables  and  coordinates  necessary  to 
simulate  an  interaction.  The  pre-processor  establishes  the 
initial  geometry  for  a  model,  including  size  and  shape.  It 
also  includes  an  in-depth  description  of  the  materials  used 
in  the  model,  specifically  the  physical  and  chemical 
characteristics.  The  initial  conditions,  such  as  velocity, 
acceleration,  and  temperature,  are  also  found  in  the 
pre-processor . 

Most  of  the  actual  processing  of  EPIC  is  done  in  the 
main  program.  It  is  here  where  all  the  interactions  are 
actually  simulated.  The  main  program  of  EPIC  takes  the 
original  model  under  the  initial  conditions  and  runs  it 
through  a  series  of  calculations  that  are  aimed  at 
simulating  the  real  world.  These  calculations  are  based  on 
the  fundamental  conservative  equations  of  mass,  momentum, 
energy,  and  entropy,  along  with  the  specific  traits  unique 
to  that  material,  such  as  its  failure  criterion  and 


stress-strain  handling  characteristics.  The  use  of  precise, 
proven  equations  along  with  the  actual,  real-world  data  of 
the  material  allows  for  very  accurate  simulations  to  ae 
produced. 

The  post-processor  section  of  the  EPIC  hydrocode  is 
what  gives  the  user  all  the  data  from  the  simulation  dealing 
with  deformation,  stress,  temperature,  pressure,  and  a  dozen 
other  variables  This  allows  the  user  to  actually  view  what 
is  happening  in  the  simulation  as  it  takes  place,  for 
example,  what  pressure  waves  are  being  formed,  what  forces 
are  acting  upon  the  body,  and  what  magnitude  of  stress  the 
model  is  undergoing. 

SECTION  3  -  GRAPHICS  PACKAGES 

To  actually  view  the  output  of  an  EPIC  simulation,  an 
EPIC  compatible  graphics  package  is  needed.  In  MNW,  two 
graphics  packages  are  used:  PATRAN  and  GKS.  PATRAN  is  an 
extremely  large,  multipurpose  graphical  environment 
developed  by  PDA  Engineering  Associates  to  explore  the  outer 
limits  of  interactive  engineering.  PATRAN  allows  the  user 
to  locate  very  specific  areas  on  an  image  with  ease  and 
modify  those  areas  in  nearly  any  way,  shape,  or  form.  The 
resolution  of  PATRAN  is  superb.  In  conjunction  with  a  good 
quality  wax  printer,  PATRAN  can  produce  pictures  that  rival 
true  photographs.  PATRAN' s  few  disabilities  include  its 
complexity  and  its  uncompatibility  with  EPIC  when 
unmodified.  EPIC  outputs  must  first  be  run  through  an  EPIC 
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to  PATRAN  translator  to  be  changed  into  a  format  that  is 
readable  by  PATRAN. 

The  other  graphics  package  used  by  MNW  is  GKS,  or  the 
Graphical  Kernal  System.  GKS  is  considered  the  world 
standard  in  computer  graphics  and  consists  of  hundreds  of 
FORTRAN  programs  in  a  library  which  can  be  incorporated  into 
other  programs  using  FORTRAN  call  statements.  GKS  is  not  as 
precise  or  resolute  as  PATRAN,  but  it  has  one  big  advantage; 
it  can  be  used  to  tailor-make  a  graphical  program  to  the 
user's  specifications.  On  the  down  side,  the  user  must  be 
both  a  FORTRAN  and  GKS  expert  to  create  a  truly  effective 
and  useful  program. 

SECTION  4  -  EPIC  UTILITIES 

My  project  this  summer  required  the  modification, 
documentation,  and  integration  of  most  of  the  EPIC 
utilities.  These  numerous  utilities  performed  many  widely 
varied  functions,  such  as  data  translation,  results 
plotting,  and  file  size  reduction.  I  had  to  learn  the  inner 
workings  of  both  the  utilities  and  hydrocodes  if  I  was  to 
modify,  document,  and  integrate  them.  This  required  that  I 
expand  my  programming  skills  and  actually  use  the  hydrocodes 
and  utilities  to  get  the  "feel"  for  what  was  going  on  inside 
the  program.  The  utilities  I  dealt  with  over  the  course  of 
the  summer  included  TRAN2,  EP3PAT,  PATEP2,  PATEP3,  XYPLOT, 
and  TRANIX.  TRAN2  and  EP3PAT  are  EPIC  to  PATRAN  translators 
and  were  by  far  the  most  used  utilities  belonging  to  EPIC. 


14-5 


PATEP2  and  PATEP3  are  PATRAN  to  EPIC  translators  that  create 
an  EPIC  input  data  deck  from  a  PATRAN  model  file.  .  The  last 
two  utilities  were  developed  by  former  apprentices  of  Mike 
Nixon  during  the  last  few  years.  XYPLOT  is  a  GKS  based 
EPIC2  results  plotter  developed  by  Bryan  McGraw  last  year 
and  TRANIX  is  a  EPIC3  output  file  size  reduction  program 
developed  by  former  apprentice  Neil  Overholtz.  Both  are 
useful  programs  that  increase  the  overall  number  of 
simulations  produced  due  to  reduced  "idle"  time  on  the 
keyboard. 

SECTION  4.1  -  EPIC  TO  PATRAN  TRANSLATORS 

The  two  EPIC  to  PATRAN  translators,  TRAN2  and  EP3PAT, 
are  identical  in  function.  They  simply  change  an  EPIC 
output  file  into  a  form  that  is  readable  by  PATRAN.  EP3PAT 
required  no  modification  to  be  incorporated  into  the  PHENIX 
integrator,  but  TRAN2  was  a  different  matter  altogether. 
TRAN2  is  a  program  developed  from  the  original  EPIC2  to 
PATRAN  translator,  EP2PAT.  EP2PAT  failed  to  work  correctly 
with  the  latest  versions  of  EPIC  and  therefore  my  mentor  and 
I  decided  that  it  would  be  best  to  design  a  new  translator. 
We  began  by  modifying  the  main  processing  routines  found  in 
EP2PAT  to  handle  the  output  of  the  latest  versions  of  EPIC. 
Once  this  was  completed,  Mr.  Nixon  evaluated  the 
effectiveness  and  necessity  of  each  of  the  extraneous 
features  of  EP2PAT.  As  a  result,  many  nice-to-have  features 
that  were  never  used  were  eliminated,  and  a  compact, 
efficient  translator  emerged.  Improvements  over  the 
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original  design  wt  e  also  added.  For  example,  the  original 
translator  would  produce  either  a  neutral  file  or  a  results 
file,  not  both.  TRAN2  was  designed  to  produce  both  files 
because  a  results  file  cannot  be  plotted  unless  PATRAN  has  a 
neutral  file  in  its  active  set.  This  new,  improved 
translat'.r  was  quickly  incorporated  into  my  integrator  and 
work  moved  on. 

SECTION  4.2  -  PATRAN  TO  EPIC  TRANSLATORS 

The  next  set  of  translators  I  dealt  with  were  the 
PATRAN  to  EPIC  translators.  There  are  two  of  these,  one  for 
EPIC2  and  one  for  EPIC3.  They  are  nearly  identical  in 
performance,  the  only  difference  being  that  PATEP3 
translates  three  dimensional  plots  and  PATEP2  translates  two 
dimesional  ones.  These  translators  can  save  a  great  deal  of 
time  by  eliminating  the  need  to  rewrite  an  entire  input  deck 
once  a  modification  has  been  made.  A  user  may  take  an  EPIC 
output,  translate  it,  and  plot  it  using  PATRAN.  He  may  now 
modify  the  plot,  use  the  PATRAN  to  EPIC  translator,  and 
create  an  entirely  new  input  data  deck.  The  new  data  deck 
can  now  be  processed  by  the  EPIC  hydrocodes  and  the  new 
outputs  compared  with  the  originals.  In  this  way,  the 
effects  of  modifications  on  penetrators  and  targets  can  be 
evaluated  quickly  and  easily. 

SECTION  4.3  -  XyPLOT 

XYPLOT  is  a  data  plotting  utility  developed  by  Mike 
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Nixon's  former  apprentice,  Bryan  McGraw.  It  is  designed  to 
plot  many  of  the  variables  used  by  the  EPIC2  hydrocode,  such 
as  stress,  pressure,  or  temperature,  and  its  relation  to  the 
time-history  of  the  model.  This  allows  the  user  to  view  the 
changes  that  occur  in  the  variables  as  the  model  moves  from 
one  time  period  to  the  next.  Any  possible  errors  that  could 
be  taking  place  in  the  simulation  will  also  be  revealed. 

XYPLOT  is  based  on  GKS,  or  the  Graphical  Kernal  System. 
It  is  an  example  of  a  tailor  made  FORTRAN  program  designed 
to  meet  the  needs  of  the  user  by  incorporating  GKS 
subroutines.  GKS  is  a  fickle  set  of  programs,  however.  It 
must  be  configured  for  exactly  the  equipment  it  is  being  run 
on  or  else  it  will  terminate  or  produce  erroneous  results. 
At  the  beginning  of  the  summer,  XYPLOT  was  configured  to  run 
only  on  machines  using  the  VMS  operating  system.  With  my 
mentor's  help  I  modified  the  program  to  be  run  on  UNIX  based 
machines.  Unfortunately,  that  was  not  the  end  of  the 
program's  faults.  A  few  vitally  important  statements  in 
XYPLOT  were  written  in  VAX  FORTRAN,  which  will  not  compile 


on  a  UNIX  based  machine.  I 

had 

to  track 

the 

statements 

down 

and  develop 

counterparts 

for 

them  out 

of 

FORTRAN? 7. 

This 

proved  more 

difficult  than  I 

would 

have  thought 

but 

eventually 

the  problems 

were 

overcome 

and  XYPLOT 

was 

incorporated 

into  PHENIX. 
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SECTION  4.4  -  TRANIX 


TRANIX  is  an  EPIC3  file  size  reducing  utility  designed 
by  another  of  Mike  Nixon's  former  apprentices,  Neil 
Overholtz.  TRANIX  is  configured  to  remove  all  the  interior 
nodes  and  elements  from  a  three  dimensional  plot  because  the 
interior  of  the  model  will  generally  not  be  viewed  anyway. 
TRANIX  does  this  through  a  series  of  FORTRAN  commands  and 
system  routines  that  first  divides  the  tetrahedral  elements 
into  four  faces.  TRANIX  then  determines  the  interior  faces 
and  nodes  and  removes  them.  After  all  this  has  been  done, 
TRANIX  makes  a  new  neutral  file  that  includes  only  the 
exterior  nodes  and  faces. 

The  reduction  of  file  size  and  plot  time  is  remarkable 
when  using  TRANIX.  A  three  dimensional  PATRAN  neutral  file 
of  approximately  nineteen  thousand  blocks  of  data  is  reduced 
to  less  than  one  third  of  its  original  size.  Subsequently, 
the  plot  time  is  reduced  from  over  three  hours  to  seven 
minutes,  forty-five  seconds. 

The  modifications  I  performed  upon  were  relatively 
simple  and  included  removing  ext.aneous  features  that 
identified  slave  nodes  and  assigned  separate  property  ID's 
for  the  nodes  and  elements.  These  modifications  slimmed  the 
program  up  somewhat  and  gave  me  much-needed  experience  in 
deciding  what  was  a  necessary  section  of  a  program  and  what 
was  in  excess. 
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SECTION  5  -  PHENIX  INTEGRATOR 


The  main  portion  of  my  project  this  summer  involved  the 
design  and  development  of  a  user-friendly  program  to 
integrate  all  major  post  process  utilities  for  the  EPIC 
hydrocodes.  It  was  created  primarily  for  use  by  the 
individuals  who  are  to  temporarily  replace  my  mentor  while 
he  studies  at  the  University  of  Florida.  They  lack  the 
experience  necessary  to  us'*  the  utilities  found  in  PHENIX 
effectively  without  help  and  it  is  hoped  that  this  program 
will  allow  them  to  overcome  their  barriers  quickly. 

PHENIX  was  designed  around  four  requirements  laid  down 
by  Mike  Nixon  at  the  beginning  of  the  summer.  They  are  as 
follows ; 


1.  The  program  had  to  be  accessible  from  anywhere  on 
the  system. 

2.  The  program  had  to  contain  both  a  general  overview 
for  a  utility  and  step-by-step  instructions  on  how  to  use  it. 

3.  PHENIX  had  to  provide  quick,  easy  access  to  all 
utilities  so  as  to  reduce  any  transfer  time  between  directories. 

4.  Finally,  the  program  had  to  be  structured  to  allow 
for  easy  modification  and  incorporation  of  new  utilities. 
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The  first  requirement  was  fairly  easy  to  meet.  I 
altered  all  the  users'  .login  files  by  creating  an  'alias'. 
An  'alias'  is  a  UNIX  command  that  takes  an  input,  'pi'  in 
this  case,  and  lets  it  stand  for  another,  more  complicated 
command.  For  example,  once  'pi'  was  entered,  the  computer 
would  automatically  route  itself  to  the  PHENIX  directory  and 
initiate  the  TREE  program.  The  .login  file  is  simply  a  file 
that  the  computer  reads  when  a  user  is  first  logging  on.  It 
sets  the  initial  conditions  for  the  operating  environment, 
including  paths  for  commands  to  follow  and  alias  commands. 
It  can  be  modified  to  fit  the  needs  of  the  user. 

The  next  requirement  proved  to  be  more  difficult. 
PHENIX  is  written  in  a  command  shell  format,  which  is  simply 
a  file  filled  with  UNIX  commands  that  the  computer  reads  and 
initiates.  The  two  UNIX  commands  able  to  print  text  are 
'echo'  and  'more'.  'Echo'  will  print  only  one  line  at  a 
time  ,  but  after  that  line  is  printed  the  user  may  input 
data  on  what  is  to  be  done  next,  an  important  feature  used 
often  in  interactive  programs.  If  'more'  is  used,  a  whole 
text  file  will  be  printed,  but  no  interaction  is  allowed 
until  after  the  entire  file  has  been  printed.  'Echo'  proved 
difficult  to  work  with  because  I  had  to  type  a  command  for 
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each  line  of  text  and  'echo'  doesn't  center  automatically. 
Therefore  1  made  sure  that  all  questions  would  be  asked 
after  the  entire  text  file  had  been  printed.  This  allowed 
me  to  use  the  simpler,  more  efficient  'more'  command  for 
documentation  purposes. 

The  last  two  requirements,  utility  access  and 
simplified  modification,  were  relatively  easy  to  meet.  To 
provide  easy  access  I  placed  menus  at  the  beginning  of  the 
program  and  after  each  documentation  text  which  would  route 
the  computer  to  more  documentation,  the  utility  itself,  or 
an  exit.  PHENIX's  ease  of  modification  is  based  on  the  fact 
that  each  utility  has  its  own  directory.  To  add  a  atility, 
you  simply  add  a  new  directory,  place  the  documentation  in 
that  directory,  add  a  menu  subprogram,  and  include  a  new 
choice  in  the  top  menu.  Removing  a  utility  entails  removing 
that  directory  dealing  with  the  utility  and  deleting  that 
choice  from  the  top  menu. 

SECTION  6  -  RESULTS  AND  CONCLUSIONS 

The  development  and  implementation  of  the  PHENIX 
Integrator  led  to  four  obvious  conclusions.  First,  the  use 
of  PHENIX  reduced  the  training  time  required  for  the  TEAS 
replacements,  thus  allowing  Nike  Nixon  to  focus  on  the  more 
important  and  subtle  workings  of  the  EPIC  Hydrocodes.  This 
reduction  in  training  time  led  to  an  overall  increase  in  the 
knowledge  of  the  TEAS  personnel  about  their  duties,  thus 
allowing  a  smoother  transdition  when  Nichael  Nixon  leaves 
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for  school.  PHENIX's  flexibility  and  speed  will  provide 
greater  time  to  be  spent  doing  actual  EPIC  runs,  thus 
allowing  an  increase  in  production  of  simulations.  The  last 
conclusion  spawned  by  the  development  of  the  PHENIX 
Integrator  is  my  own  increase  in  knowledge.  I  had  to  learn 
the  ins  and  outs  cf  FORTRAN,  GKS,  and  the  EPIC  utilities. 
This  learning  also  led  to  a  greater  understanding  of  the 
functions  that  MNW  performs  in  the  overall  mission  of  AFATL. 
I  understand  more  fully  the  importance  of  the  work  that 
takes  place  at  Eglin  AFB  and  how  its  affects  both  our 
military  and  civilian  organiztions  not  just  here  in  the 
Panhandle,  but  around  the  world. 
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hinged  upon  the  attitude  and  abilities  cr  our  mentors.  I 
would  like  to  thank  my  mentor,  Michael  Nixon,  for  all  his 
help  and  advice  on  everything  ranging  from  the  EPIC 
hydrocodes  to  colleges.  I  have  enjoyed  talking  and  working 
with  the  various  engineers  in  my  section,  including  Mr. 
Bill  Cook,  Ms.  Lori  Perillo,  Mr.  Bizhan  Aref,  and  the  TEAS 
personnel.  I  must  also  thank  my  fellow  apprentices, 
especially  Heather  Cox,  for  all  the  good  times  and  fun  we 
shared.  It  is  an  memory  I  will  hold  throughout  college  and 
beyond.  Again,  I  would  like  to  thank  Michael  Nixon  for 
everything  he  has  helped  me  with.  I  greatly  enjoy  his 
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friendship  and  tutelage  and  1  look  forward  to  attending  the 
University  of  Florida  with  him  in  the  fall.  The  High  School 
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in  this  area  and  I  would  like  to  thank  everyone  who  supports 
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Dr.  Norm  Klausutis.  Our  thanks  to  them  are  well  deserved. 


14-14 


BIBLIOGRAPHY 


ECONET  FORTRAN  USERS  GUIDE,  MAY  1985 

ULTRIX-32  quick  REFERENCE,  COPYRIGHT  1987,  DIGITAL 
EQUIPMENT  CORPORATION,  MERRIMACK,  NEW  HAMPSHIRE. 

ULTRIX-32  SUPPLEMENTARY  DOCUMENTS,  VOLUME  1,  GENERAL 
USER,  COPYRIGHT  1984,  DIGITAL  EQUIPMENT  CORPORATION, 
MERRIMACK,  NEW  HAMPSHIRE. 

VAX-11  FORTRAN  LANGUAGE  REFERENCE  MANUAL,  COPYRIGHT 
1982,  DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASSACHUSETTS. 

VAX-11  FORTRAN  USER'S  GUIDE,  COPYRIGHT  1982,  DIGITAL 
EQUIPMENT  CORPORATION,  MAYNARD,  MASSACHUSETTS. 

VAX  FORTRAN  FOR  ULTRIX  SYSTEMS  USER  MANUAL,  COPYRIGHT 

1986,  DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASSACHUSETTS. 

UNDERSTANDING  FORTRAN:  SECOND  EDITION,  MICHEL  BOILLOT, 
MAY  1985. 

INTRODUCTION  TO  FORTRAN,  COPYRIGHT  1986,  GOULD 
ELECTRONICS  INC,,  FORT  LAUDERDALE,  FLORIDA. 

INTRODUCING  THE  UNIX  SYSTEM,  COPYRIGHT  1983,  HENRY 
MCGILTON  AND  RACHEL  MORGAN,  MCGRAW-HILL  PUBLISHING,  NEW 
YORK,  NEW  YORK. 

UNIX  UTILITIES:  A  PROGRAMMER'S  REFERENCE,  COPYRIGHT 

1987,  R.  S.  TARE,  MCGRAW-HILL  PUBLISHING,  NEW  YORK,  NEW 
YORK. 


TWO-  AND  THREE-DIMENSIONAL  COMPUTATIONAL  APPROACHES  FOR 
STEEL  PROJECTILES  IMPACTING  CONCRETE  TARGETS,  COPYRIGHT 
1988,  G.R.  JOHNSON,  R.A.  STRYK,  AND  M.E.  NIXON,  EGLIN 
AFB,  FLORIDA. 


14-15 


14-16 


OVERVIEW 


CO 

!■■■ 


Ul 

O 

z 

X 


LU 

>- 

H 


CC 

o 

H 

< 

QC 

CD 

LJJ 

h" 

Z 

>< 

z 

UJ 

z 

CL 


EPIC  INPUT  DATA  DECKS 


14-18 


GRAPHICS  PACKAGES 


CO 

O 

Q. 

LU 


CM 

O 

Q. 

U 


14-20 


EPIC  TO  PATRAN  TRANSLATORS 


I 


IT 

QC 

o 

O 

H 

< 

< 

-1 

(/> 

0) 

z 

z 

< 

< 

oc 

QC 

h“ 

1- 

z 

2 

< 

< 

QC 

QC 

1- 

h- 

< 

< 

Q. 

■ 

Q. 

• 

CO 

<N 

i 

O 

O 

s 

Q. 

UJ 

§ 

Q. 

m 

CO 

s 

cx. 

pc 

Ui 

I  I 


14-21 


cc 

CO 

LU 

o 

1— 

< 

CO 

E 

u 

LU 

CO 

CO 

O 

t— 

2 

3 

< 

Q 

3 

QC 

o 

CO 

1“ 

CC 

LU 

CL 

CC 

< 

>- 

X 

Q. 

H 

CM 

0. 

LU 

CO 

Hi 

O 

< 

U[r 

o 

CD 

CO 

K-  1 

s  cc 

HI 

O 

3 

Zj 

O  H" 

a. 

1-3 

o 

UJ 

3  LU 

X 

cc 

<Z 

0. 

Ill 


14-22 


14-23 


XYPLOT 


III 


14-24 


LU 


H 

H 

o 

Q. 

LU 


O 

< 

CO 

D 

CO 

Q 

CO 

H 

Z 

UJ 


LU 

-1 

LU 

CO 

LU 

O 


O 


z 


(/) 

a: 

D 

O 

X 

CO 

CC 

LU 

> 

o 


cn 

o 

o 

CD 

00 

O) 

(O 

00 


C4 

00 

o> 


CO 

in 

QO 

U) 


-j 

< 

QC 

I- 

X 

lU 

si 

—  Ui 

o 

QC  O 
O  S 


14-26 


NEW  NEUTRAL  4418  8824  5038  BLOCKS  7  MIN,  45  SEC 

MODEL  FILE 


PHENIX  INTEGRA  TOR 


5 

UJUJ 


0) 


CO 

CO 

m 

o 

o 

< 

>- 

(0 

< 

LJJ 

(0 

Hi 

Q 

> 

O 

QC 

CL 


OD 


I  I  I  I  I 


14-27 


AN  BE  EASILY  MODIFIED  TO  INCORPORATE  N 
TILITIES  DUE  TO  ITS  HIERARCHAL  STRUCTUR 


Example  Documentation  Subprogram 
Hike  E  Nixon 

Computational  Mechanics  Team 

Kenneth  Gage 

High  School  Apprentice 

Summer  1990 

AFATL/MNW 

clear 

more  /user3/nixon/super.d/ep3pat.d/ep3pat. intro 
set  ans  -  $< 
if  ($ans  **  "1")  then 
clear 

more  /user3/nixon/super .d/ep3pat .d/ep3pat. info 
echo  "" 
echo  "" 

echo  “Would  you  like  to  return  to  EPIC3-PATRAN  documentation?" 
echo  "" 

echo  "Please  type  'y'  or  hit  RETURN." 

echo  "" 

set  a  =  $< 

if  ($a  *«  "y")  then 

/user 3/nixon/super . d/ep3pat . d/ep3pat . doc 

else  if  ($a  •»»  "")  then 

/use  r 3/nixon/supe  r . d/ep3pa t . d/ep3pat . doc 

endif 

else  if  ($ans  —  "2")  then 
clear 

/user3/nixon/super .d/ep3pat. d/prog ram. d/ep3pat 

else  if  ($ans  -=  "3")  then 

clear 

/use r 3/nixon/supe r . d/supershell 

else  if  ($ans  =«*  "4")  then 

clear 

exit 

endif 
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Design  of  In-House  Radar 
Control  and  Data  Acquisition 

Systems 

AFATL/AGA/RF 


Reid  R.  Harrison 

School:  Walton  Sr.  High 
Mentor:  Frank  Arredondo 

Summer  1990 

Eglin  A.  F.  B.  Armament  Laboratory 
Air-to-Air  Guidance  Branch 


1.  Introduction  and  Background 


This  summer,  I  worked  with  Darryl  Huddleston  and  Johnny 
Walker  i.i  the  RF/MMW  lab  (room  434)  of  the  Eglin  Air  Force 
Ease  Armament  Laboratory  (building  13).  Mr.  Huddleston  is  the 
program  manager  for  the  .AGA/RF  in-house  radar  program.  The 
centerpiece  of  this  program  is  an  X-band  pulse  doppler  radar 
system  similar  to  the  type  found  in  F-16  fighters.  The  system 
consists  of  two  antennas:  a  search  anten.na  and  a  track 
antenna.  The  search  antenna  sweeps  around  350  degrees  and 
searches  for  targets  in  a  large  hemispherical  domain.  The 
track  antenna  is  a  parabolic  dish  dual-feed-horn  antenna  that 
can  move  to  a  specific  azimuth  and  elevation  to  track 
individual  targets.  Both  antennas  are  located  on  the  roof  of 
the  building  13  annex,  directly  above  the  RF/MMW  lab.  The 
short-term  goal  of  this  program  is  to  control  this  radar 
system  with  a  Z-248  microcomputer.  Capt .  Jeff  Barnes  is  using 
Microsoft  C  f.l  to  create  radar  control  software.  Much  of  the 
work  1  did  this  summer  involved  writing  special-purpose 
cjdditions  to  his  main  control  program,  'bc.c'.  I  also  wrote 
some  independent  C  software. 
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2.  Description  of  Research 


During  this  sun>.Tier,  I  was  assigned  the  task  of  designing 
and  implementing  an  automated#  computer-controlled  system  to 
map  radar  antenna  patterns.  The  following  is  a  list  of 
equipment  that  i  used  as  a  part  of  this  ?rstem: 

-  AGA/AGS  X-band  pulse  dopplet  in-house  radar 

-  2-248  microcomputer  -'ith: 

-  1553  bus  controller  card 

-  GP4S8B  HP-IB  bus  interface  card 

-  Microsoft  C  5.1 

-  Borland  Turbo  C 

-  HP  8757C  scalar  network  analyzer 

-  HP  sweep  oscillator  with: 

-  HP  2.0  -  20.0  GHz  insert 

-  X-band  standard  gain  antenna  horn  mounted  on  tripod 

(19.7  cm  X  14.6  cm  rectangular  aperture) 

-  X-band  standard  gain  antenna  horn 

(7.6  cm  X  5.7  cm  rectangular  aperture) 

-  P.F  amplifier 

Track  Antenna  Control 

The  first  requirement  .for  the  antenna-mapping  system  was 
control  of  the  track  antenna.  I  studied  the  1553  codes 
associated  with  antenna  movement  and  position.  To  move  the 
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track  antenna,  F03  words  07-09  must  be  supplied  with  the  X, 
and  Z  coordinates  of  a  target  (in  meters),  "ince  I  wanted  to 
move  the  antenna  only  to  specific  azimuths  and  elevations,  I 
wrote  a  C  routine  (rae_to_xyz( ) )  to  convert  azimuth  and 
elevation  to  X,  V,  and  2  coordinates  in  radar  format.  At 
first,  I  thought  that  any  range  could  be  specified  for  the 
computations.  However,  the  radar  only  works  properly  when 
16384  meters  (maximum  range)  is  used  in  the  conversion.  The 
reason  for  this  is  unknown. 

After  the  conversion  routine  was  established,  T  wrote 
!novedish(),  a  C  routine  to  move  the  track  antenna,  I  later 
created  a  modification  of  movedish{)  called  movewait().  This 
routine  moves  the  track  antenna  and  does  not  return  to  normal 
program  execution  until  both  the  elevation  and  azimuth  sensors 
return  values  less  than  0.3  degrees  from  the  requested  values, 
or  until  3.0  seconds  have  passed.  This  routine  utilizes 
another  routine  I  wrote,  ant__coord ( ) ,  which  returns  the  value 
of  either  the  azimuth  or  elevation  position  sensor  as  a 
floating  point  number.  These  values  are  read  from  ROl  words 
04-07. 

HP::J£.,co.nti.ql 

In  order  to  automate  serval  pieces  of  lab  equipment,  I 
installed  a  GP488B  HP-IB  interface  card  in  the  2-248  computer. 
I  installed  the  software  driver  on  hard  disk,  and  created  a 
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text  file  called  '<•  :n£ig  .txfc ' 


in  the  leee489  aabdirectory  of 


d.tive  C.  This  file  lescribes  how  the  DIP  switches  and  jumpers 
were  set  on  the  card  prior  to  installation.  I  then  learned 
how  to  control  an  KP  plotter  and  power  meter  from  Turbo  C. 
Finally,  I  controlled  the  HP  scalar  network  acalyzer  and  sweep 
oscillator  from  Microsoft  C.  In  order  to  send  commands  to  the 
sweep  oscillator,  which  is  not  directly  connected  Lo  the 
Z-248,  a  passthru  address  (17)  in  the  network  analyzer  must  be 
told  the  oscillator'r  address  (19).  I  also  learned  how  to 
read  data  from  the  network  analyzer  and  save  it  to  a  file  on 
hard  disk. 

Physical  Set -up 

I  mounted  the  transmit  antenna  horn  on  a  camera  mount  on 
the  track  antenna.  This  antenna  was  connected  via  RF  cable  to 
the  output  of  the  sweep  oscillator.  The  receive  horn  was 
placed  on  a  tripod  at  the  end  of  a  waveguide  extension.  This 
placed  the  horns  about  35  feet  apart.  The  waveguide  was 
connnected  via  RF  cable  to  an  RF  amplifier,  which  fed  into  the 
*A'  input  in  the  scalar  network  analyzer.  The  Z-248  computer 
was  connected  to  the  radar  over  the  1553  bus.  A  standard 
HP-IB  cable  connected  the  scalar  network  analyzer  and  the 
GP438B  card  in  the  Z-248. 

The  Gompletad  Program 

The  main  antenna  mapping  routine  is  accessed  from  bc2.c 


by  pressing  the  ’R'  key.  The  brings  up  requesters  that  allow 
the  user  to  Input  the  starting  and  stopping  azimuths  and 
elevations.  Also,  the  program  requests  the  increment  ize  for 
azimuth  and  elevation  scans.  After  this  information  is 
entered,  the  program  presets  the  HP  equipment,  sets  a 
frequency  range  of  9.6  -  10.0  GHz,  and  sets  the  power  level  to 
10.0  dBm.  The  analyzer's  cursor  is  turned  on  and  positioned 
at  9.3  3Hz.  Next,  the  program  turns  the  RF  on  and  begins  to 
move  the  track  antenna  step  by  step,  reading  and  recording  the 
power  level  at  each  stop.  The  data  is  saved  to  the  file 
' h :data£ 1 le . rad ' .  The  format  of  this  file  is  described  in  the 
technical  documentation.  The  routine  sendfloat()  is  used  to 
write  floating  point  numbers  to  4-byte  fields  in  a  disk  file. 
The  scan  rate  is  about  2  readings  per  second.  A  complete  scan 
{-6C  to  +30  azimuth,  -7  to  +85  elevation)  in  1  degree 
increments  takes  about  35  minutes.  After  the  scan  is 
complete,  the  RF  is  turned  off,  the  file  is  closed,  and  the 
track  antenna  is  returned  to  0  degrees  azimuth,  0  degrees 
elevation . 
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above  3  dBm  below  the  maximum  value  are  colored  yellow. 
Therefore^  the  beamwidth  ia  visible.  These  graphics  routines 
were  eventually  incorporated  into  'antplot.c’,  a  program 
written  in  Turbo  C.  This  program  displays  full  size  plots. 
Full  size  means  o  scan  from  azimuth  -60  to  +30  and  elevation 
-7  to  +85  in  1  degree  steps.  Plots  can  be  displayed  in  two- 
dimensional,  three-dimensional,  or  spherical  plots.  Two 
coloring  schemes  are  available.  One  distributes  twelve  colors 
evenly  from  the  maximum  power  level  to  the  minimum.  The  ether 


shows  the  antenna  beamwidth. 


r 


3.  Results 

Two  antennas  were  observed:  a  standard  gain  X-band 
antenna  horn,  and  the  track  antenna,  a  parabolic  dish  with  a 
three-foot  diameter.  The  standard  gain  horn  exhibited  a 
beamwidth  very  close  to  the  width  predicted  by  equations. 

Also  visible  in  the  plot  were  strange  patterns  that  were 
eventually  attributed  to  multipathing,  ur  reflections  off  of 
clutter  on  the  roof.  The  track  antenna  plot  showed  a  very 
narrow  beamwidth,  with  vertically-positioned  sidelobes.  Also 
visible  in  the  plot  was  the  dual-feed-hur n  nature  of  the 


antenna . 
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5.  Technical  Documentation 


bc2  .r 

The  file  'bc2.c'  is  my  modified  version  of  Capt.  Barnes' 
'bc.c'.  It  includes  serveral  new  functions  and  two  new 
keypress  routines  {'A'  and  'R').  I  removed  the  'M'  keypress 
option  (modify  P03  message  mask)  to  reduce  compilation  time. 

New  Factions 

float  ant_coord( Int  whlch_one,  struct  llnk_STR  *blink) 

Purpose : 

Returns  the  value  of  either  the  azimuth  or  elevation 
position  sensor  of  the  track  antenna. 

Usage : 

The  variable  *which_one'  should  be  either  'AZIMUTH'  cr 
'ELEVATION',  which  are  ^defined  as  5  and  1,  respectively.  The 
struct  should  always  be  as  it  appears  in  the  example.  This 
routine  reads  ROl  words  04/0?>  (azimuth)  cr  06/07  (elevation). 

Example  .* 

float  az; 

az  =  ant_coord (AZIMUTH, 

&1 ink_bf_1553 . link lR01_buf fer . 1 ink^index J ) ; 
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void  disp_angle( int  vert,  int  horz,  struct  llnk_STR  *blink) 

Purpose : 

Display  the  track  antenna  position  sensor  readings 
{azimuth  and  elevation)  on  the  graphics  screen. 

Usage : 

The  variables  'vert'  and  'horz*  position  the  text  on  the 
screen..  The  struct  should  always  be  as  it  appears  in  the 
example . 

Example : 

disp__angle  ( 19,  41, 

ilink_bf^l553.1inktR01^buffer .link_index] ); 


void  rae_,to_xyz (double  rae(3],  WORD  xyz2[3]) 

Purpose : 

Convert  range,  azimuth,  and  elevation  to  X,  Y,  and  Z 
coordinates  in  F03  words  07-09  format. 

Usage : 

The  array  'rae'  is  range  (taeCOJ),  azimuth  (raetlj),  and 
elevation  {rae[2]).  For  track  .antenna  movement,  range  should 
always  be  1S384.0.  Azimuth  and  elevation  are  given  in 
degrees.  The  array  'xyz2'  is  X,  Y,  and  Z  coordinates. 
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repectively.  Note: 


"his  function  modiflea  Lho  value3  of 


'.<yi:2’  AND  '  rae  *  . 

Example : 

float  spherical[2J  =  {  1S334.0,  -30.0,  45.0  }; 

WORD  data_f or_1553 [ 3 ] ; 

rae_to_xy2 ( spherical,  data_£or_1553 ) ; 


void  timedelay (double  seconds) 

Purpose : 

Pause  for  a  while. 

Usage : 

The  variable  'seconds’  is  the  number  of  seconds  that  the 
program  does  nothing  but  execute  pcl553_loop{ ) . 

Example : 

timedelay(  3.0) ;  pause  three  seconds  */ 


void  niovedish( float  azimuth,  float  elevation) 

Purpose : 

Move  the  track  antenna  to  a  specific  azimuth  and 
elevation . 


IMS 


Usage : 


The  variables  'azimuth'  and  'elevation'  are  given  in 
degrees.  The  azimuth  range  is  -50  degrees  t.n  +30  degrees. 
The  elevation  range  is  -7.5  degrees  to  +85  degrees. 

Example : 

moved isht 0 . C,  30.0); 


int  movewait( float  azimuth,  float  elevation) 

Purpose : 

Move  the  track  antenna,  as  in  movedishC),  but  do  not 
resume  normal  program  operation  until  both  position  sensors 
return  values  less  than  0.3  degrees  from  the  requested  values, 
or  3.0  seconds  elapse. 

Usage : 

Same  as  movedish(},  except  that  movedish(}  will  not 
attempt  to  move  the  antenna  if  the  azimuth  and/or  elevation 
variables  are  net  within  the  specified  ranges.  Instead,  the 
function  returns  a  -1. 

Example : 

movewait(0.0,  30.0); 
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void  send_float(FILE  *out,  float  number) 

Purpose: 

Write  a  float  to  a  disk  file  in  a  4-byte  (most  t;ompact) 
format. 

,  Usage : 

I 

'  The  variable  ’number’  is  written  to  the  file  pointed  to 

f  by  ’out’ . 

I 

Example : 

;  FILE  *myfile; 

i 

i  /*  open  file  here  */ 

i 

I  sendf loat ( out^  3.1416); 

y 

I  Antenna  Pattern  File  gpecif ications 

I 

} 

When  a  measurement  is  made  by  bc2.c,  the  resulting  data  is 
*  saved  to  h:dataf ile.rad.  The  format  of  this  data  file  is  as 

follows : 

(1)  five  I.D.  characters:  ’DIVAD’ 

(2)  a  4-byte  float  telling  how  many  data  segments  follow. 
Each  data  segment  consists  of: 

\  (a)  azimuth  sensor  reading  (4-byte  float) 

(b)  elevation  sensor  reading  (4-byte  float) 

(c)  power  level  in  dBm  (4-byte  float) 

‘4 

« 
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Background  and  Definitions 


164 


This  imt  summer  I  worked  for  the  Air  Armament  Technology 
Lab,  located  cm  Epn  Air  F^ce  Base,  as  a  parpcip^t  in  Univ^sal  En^gy 
System's  lEgh  Schocd  Af^menticeship  Program.  IMiring  that  time  I 
lesearclmd  and  snidi^  undar  Staiia  Christakos,  chmf  of  die  elite  Signal 
Processing  section.  Guided  Inteiceptcu'  Technolc^  /  Stratepc  Defense 
Initianve. 

!  was  involved  in  {•'everal  projects  over  the  coiuse  of  the  summer, 
most  of  which  involving  direct  creative  programming,  as  o|q>osed  to 
straidaced  punching  and  batching.  Tliese  dxt  the  "adi^tuzes"  that  I  will 
describe  in  this  report,  as  I  deem  them  worthy  of  your  eai?. 

The  first  of  these  projects  involved  wridng  a  smart  ulgcmthm,  which, 
when  activated,  would  scan  an  image  and  choose  its  <^dmum  processing 
path.  The  second  was  "like  unto  the  first"  only  in  its  base  -  hers  I  wrote 
the  graphics  code  and  Signal  Processing  fen-  a  new  simulator  -  one  that  was 
mulii-imaging  and  caimble  of  processing  an  endie  endgame  scenario.  The 
third  (and  also  the  most  bcHing,  1  might  add),  involved  direct  programming 
of  Signal  Processing  chips,  through  a  special  C  compiler.  This  was  deme  the 
expedite  the  midre  guidance  inoccss  for  the  intercepts.  (NOTE:  I  also 
assisted  in  many  otho-  projects  my  colleague  and  fellow  HSAP,  Troy 
Urquh^  however,  not  wishing  to  intrude  upon  hi$  repmt,  said  projects 
will  be  dealt  with  in  a  special  MISCELLANEOUS  seedtrn). 

Since  all  projects  were  separate  and  unique,  I  have  treated  them  as 
such  in  this  report.  For  the  unfortunate  soul  who  wishes  short,  concise 
deHnidens  of  what  I  mean  (example:  "What  the  *#%*  is  that  HSAP  talking 
atmut?!"),  following  this  muoduction  is  a  series  BASIC  tmns  that  I  shall 
endeavor  to  use  cmiectly. 

Not  to  seem  spoiled  here,  I  must  say  that  I  have  enjoyed  this  sununer 
a  great  deal.  Learning  skills  never  taught  in  a  classroom,  I  feel  now 
better-equipped  to  proceed  to  college,  v^ll  that  is,  after  1  complete  my  next 
summer  apprenticeship  in  1 991 . 


DSM 

Tte  r;gital  Seeker  Model  is  a  simuladon  which  runs  mi  a  SUN 
workst^mi  3,  and  is  blessed  the  knowledge  that  it  smved  as  the  protoQ^ie 
for  my  smart  selects.  It  consists  of  two  main  proc^^,  om  a  controlla-  C 
graphics  int^ace,  and  the  other  a  numba'-crunching  FORTRAN  module. 
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Since  I  worked  with  both,  I  feel  you  are  entitled  to  a  brief  summary  of 
their  components. 

On  the  FORTRAN  side,  in  ortfinary  flow,  a  user-ctefined  ^t  of 
qualiflcadmis  on  the^ntegral  parts  of  an-in^fc^or  is  fed  thrdugh  a  course 
of  computer  actuate  designs.  A  user  can  tten  "step  duough”  each  part  of 
the  interceptor's  Si^^  Processing  and  Seeker  many  stages  and  functions.  I 
refuse  here  (quire  adamantly,  I  must  say)  to  ramble  on  about  line 
such-and-such  and  what  IT  does.  For  the  ultimate  programmer,  I  have 
included  a  cc^y  of  my  modifi^  simulinor. 

The  C  part  mainly  displays  the  FORTRAN  output. 'Not  really  much  to 
say,  and  1  refuse  to  dump  the  entire  graphics  cluster,  for  1  didn't,write  this 
part,  I  only  modified  it  to  make  it  faster. 

MISP 

MISP  stands  for  Multiple  Image  Signal  Processor.  This  is  my  program 
(well,  I  have  to  share  credit  with  the  other  apfnendee  here),  and  so  a  listing 
is  included.  Basically,  MISP  runs  as  DSM,  save  the  fact  that  MISP  allows  the 
user  to  view  an  entire  flight  path  of  an  intnceptor.  He/she  is  NOT  limited 
to  one  image  at  a  time,  as  .‘t'  DSM!!  (I  was  famous  finr  my  IS  minutes  for 
this  one,  Mr.  Warhol)  Hiis  ^imultuion  is  written  entirely  in  C,  for  it  is  the 
language  of  champions,  and  i  shall  continue  as  these  bits  of  humor  are 
probably  not  FUNNY.  “  ' 

C30sim 

C30sim  was  not  die  ^y  name  given  to  this  piece  of  wonder.  Truly 
fascinating  vulgarities  and  expletives  described  this  package  which  allowed 
one  to  DIRECTLY  program  the  chips  of  Itn  interceptor,  specifically  the  ones 
devoted  to  signal  processing.  Not  really  much  more  to  say  here. 

SIGPROCOps. 

Whenever  1  speak  of  different  Signal  Processing  specifics,  I  shall 
make  quick  reference  to  a  particular  routine.  The  following  is  a  list  of 
definitions  for  the  technically  weak-s^red; 

Kinetic  Etrergy  We^io:t  -  What  I  work  with.  Specifically,  an  SDI 
vehicle,  which,  raiding  in  space,  is  l«inclted  at  hypersonic  velociti^  at 
oncomuig  ICBM's. 
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Thieshold  >  The  fnocess  of  systematically  cutting  out  noise  in  a 
pictum,  usually  with  a  fixed  value  or  some  linear  ^uadon. 

Edge  Opmtor  -  A  small  matrix ,  or  system  of  matrices  that  is  scanned 
over  an  image  to  produce  a  desired  shift  in  the  intensity  values  around 
someedge  phenomenon. 

Transform  •  An  operation  of  changing  the  format  or  general 
characteristics  on  an  image  for  stt^ge  or  analysis  purposes  <Ex:  Fourier 
transfmms  are  used  to  analyze  discrete  spectra  of  particular  images) 

Kerse  -  The  engineer's  term  for  any  vulgar  expletive,  thus  the  one 
used  in  this  repon. 

Slave  -  the  convenient  term  for  an  HSAP  in  my  office  (This  is  a  joke. 
My  office  is  very  loving) 


Rather  than  tell  more  stupid  jokes.  I  think  we'll  move  along. 
WELL,  TURN  THE  PAGE... 
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Figures  Listed 

1.  Generic  Diterceptor 

2.  Interceptor  Closeup 

3.  MISPflow 

4.  MISP  Signal  Processing 

5.  Smart  Selector  Definition 

6.  Smart  Selector  Flow 

7.  Guidance  Explanation 
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KINETIC  ENERGY  WEAPON 


Signal  Processing  -  Extraction  of  relevant  data  from 
irrelevaiit  noise  or  interference. 


MISP  Outline 


Input  /  Output  [  Signal  Processing 


Main  Signal  Processing  Operaticnsj  (  MISP 
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acceleration  states  from  sensor. 


Projects 


16-16 


Smart  Preimage  Selector 


OBJECTIVE 


Funny  how  ideas  stan.  When  I  first  arrived,  trying  to  reacquaint 
myself  with  the  complexity  of  the  Lab,  I  was  playing  around  with  the 
Digital  Seeker  Model,  relearning  its  "wonders."  I  was  suddenly  struck  with 
several  thoughts.  In  a  non-user  simula-ion,  or  even  in  a  real  interceptor, 
for  that  matter,  no  time  will  be  available  to  choose  between  algorithms  in  a 
leisurely  manner.  Decisions  must  be  made  quickly.  It  was  then  that  I 
realized  also  that  no  one  had  formulated  a  simple  PURELY  MATHEMATICAL 
way  of  choosing  which  way  to  processing  any  given  image  (for  they  are  all 
different  no  ONE  way  works).  Since,  like  I  said,  no  one  had  ever  tried 
tl;!.-)  line  of  research  before,  I  developed  lots  of  "fans."  I  then  set  out  to 
oesign  an  algorithm  myself  that,  when  given  a  library  of  possible  routines, 
and  any  image,  could  match  the  best  .<  outine  to  the  image. 

THEORY 

I  researched  matrices  and  vectors  and  all  that  for  a  long  while,  trying 
to  find  some  key  to  the  mess  of  pure-math  differentiation.  Since  I  wanted 
to  stay  away  from  AI  or  neural-networking  (the  chips  were  not  designed 
for  that),  I  ran  into  many  "brick-walls"  of  measurement.  For  one,  how 
would  it  "know"  the  characteristics  of  each  image  in  relation  to  other-  data? 

Was  there  any  "signature"  for  masks  to  identify? 

NO.  I  chose  then  to  identify  the  mask  characteristics  of  a  panicular 
algorithm  by  subspace  axes.  Therefore,  to  calculate  the  best  mask,  for  .any 
number  of  them,  one  "pushes"  some  over  an  image,  and  maps  their  gradient 
vector  or  "response"  onto  the  multidimensional  subspace  (number  of 
dimensions  ==  number  of  masks).  The  best  mask  to  run  will  be  the  one 
with  the  smallest  angle  (theta)  from  the  vector  to  the  axis. 

This  year,  1  put  in  eight  linear/directional  compass  methods  and 
tested  sensitivity  to  detect  edges.  Results  wcie  very  satisfactory.  The 
program  always  chose  the  mask  that  I  would  choose.  Whether  that  was  the 
BEST  mask  remains  to  be  seen  (JOKING). 

Enough  of  theory.  As  you  can  see,  it’s  pretty  easy,  and  MOSTLY  mine. 

I  must  admit,  the  subspace  idea  is  not. 

PROCEDURE 
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I  wrote  it.  What  more  can  I  say??? 


RESULTS 

It  worked  - 1  mean  really  worked!  Again,  I  felt  like  a  million  bucks. 
Wow.  Maybe  next  year  I’ll  even  optimize  it. 

BUGS 

Increasing  rapidly  as  one  adds  on  further  algorithms,  is  CPU  time. 
NOTE;  This  method  only  works  with  libraries  of  25  or  fewer  masks.  Any 
more  slows  down  the  overall  computation  time  of  the  interceptor. 

REFLECTIONS 

I  will  never  attempt  something  like  this  ever  again. 

(Derek  hath  spoken) 


16-19 


Digit'i!  Seeker  Model 

(DSM) 


excerpt: 

ns92sig.f 

(signal  process  library) 
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20 


a-a-  -a-:  ec  a  aDs-ato'-' 

De-e.  -c  aaa 

s-a':.---s  ex:sgaiD*ca  f s -ae . s -at /oe 
.-a-ac:e'-‘8C  aigtvoe.cr 
^ea ’ ofoal *26 .  128  ) 

■  nteae'*  *s i ze .  s  ignum . unk 

^ormatiaSO) 

unksO 

1*  (sigtyoe 

unK  «  1 
p-irt  • ,  ' ! 

O'*  ^  nt  •  .  ' 
pr  *  ■ 

pr  ’  ‘ 

pr^nt  • . ' 

pr int  • . ' 
pr int  • . ' 
print  • . ' 
pr  »nt  • . ' 
print  •  ' 

pr int  ■ . ' 

pr int  ■ , ' 
print  • . 
print  • . ' 
print  • .  ' 
print  ■ .  ' 
print  •  ' 
pr 'nt  • .  ' 
pr  1  ''t  •  ,  ' 

pp 1 *  ! 

pr 1 nt  •  ’ 

P'*int  ■  .  ' 
or  '  ''t  •  .  ' 

p- 1 nt  * . ' 
print  • . ' 
pr int  • . ' 
reaa(  • .  'O 
signum  «  \ 
enai  f 


6Q  'SIG_^'  )  than 

inter  type  o*  Signal  Procesing' 

Types  avatiADle*  ' 

-  SIG  SOBSL' 

-  SIG  KIRSCH' 

-  S2G"gENER1C2X2' 

-  SIG  R0BERTS1 ' 

“  SIG“rOBERTS2' 

S1G_WALLIS  note,  use  linear  seal  mo 

: 

-  SIG_LAPLAC1AN2- 

-  SIG  LAPLACIAN3' 

-  SIG_COMPASS.N-- 

-  S1G“C0MPASS .NE • 

-  SIG  COMPASS. E 

-  SIG~COMPASS. SE ' 

-  SIG~C0MPASS.S' 

-  SIG  COMPASS.  SW 

-  SIG  COMPASS. W 

-  SIG  COMPASS. NW 

-  SIG  HORIZONTAL! ' 

-  SIG  H0RI20NTAL2- 

-  SIG_VERTICAL1 ' 

-  SIG  VSRTICAL2- 

-  SIG  histogram  =0' 

-  SIG_HQUGhTRANS- 
Stgtype 


’^(Sigtyoe  ec  'SIG  SOBEC')  tnen 
can  sooel  (Dfpi.  fsize) 

Signum  «  2 

elseifjsigtype  eq. • SIG_GENERIC2X2 '  )  tnen 
call  gener  c(pfpa. fsize) 
signum  >  3 

elseifjsigtype.eq  'SIG  ROBERTSi'-l  tnen 
ca.1  rooertsKpfpa.fsize) 

signum  «  a 

elseif  (sigtype.oQ. 'SIG.wallIS'  )  tnen 
call  wai 1 1 s(e«pa . f s ize ) 

signum  «  S 

elseifls-gtyce  ec . ' s:g_w£irowalL!S ' )  tnen 
-all  wetrawai 1 isipfpa. fsize) 

signum  »  6 

'SIG_LAPLAC1AN1' )  tnen 
j  'SDl  ac  lam  (pf pa .  f  s  i2e> 
signum  *  7  ' 

;SIG_LAPlACIAN2')  then 
can  iaoiacian2(pfpa.fsizeJ 
signum  •  e 

'SIG_laplacian3' )  tnen 
cal  1  ^apiacian3(pfpa. fsize) 
signum  ■  9 

elseiflsigtype.eo  'SIG  compass. N')  then 
call  compassnipfpa. f s ize ) 

Signum  •  io 

e I  s# 1 f ( s 1 gtype . eq . ' S IG_C0MPASS . NE ' )  tnen 

wall  compassnetpfpa.fsize) 

signum  «  1 t 

etseifjsigtype.eq. 'SIG  COMPASS. E')  tnen 
call  comoasseipfpa. fsize) 
signum  •  12 

*'*“111*1121^”*  •‘»;'SIG_C0MPASS.SE  )  then 

wall  compassse(pfpa. fsize) 

signum  *13 

»iteif{*igtype.eq. 'SIG_C0MPASS.S'  )  tnen 
cal  1  cofflpa$ss(pfoa. fsize) 

signum  »  14 

elseifjsigtype.eq. ' SIG_COMPass,SW' ;  then 
cal  1  compasssw(pfpa, fsize) 
signum  *  15 

eiseif (sigtype.eq, 'SIG_COMPass.W' )  then 
call  compaeswCpfpa. fsize) 

signum  *  i6 
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sj:-o-t:r-e  aer'e-'C!'  -S'ze 
^ea  ^  i  ‘2z  **22j 
■  f^teos"  ^  £  ■  ts .  * 

'•ea'"“  Duf  *  (  1 28  .  i  28  I 
com'non  /Duffers/  Duff 
D''i''t' . 'Generic  2  Dy  2 
DC  20  1  =  2.fsize-l 
00  10  j  •  2.fsize-i 

a  •  (f (  1 .  j  )-f(  1-1. j  )) 

D  -  (f(  t.j  l-'l  i.:-<)l 
Duff(i,j)  •  sgrT(a-a*D*D) 
10  continue 

20  continue 

do  40  f  =  2 , f Size-  ' 

00  30  j  •  2.fsize-i 

f (  1  ,  j  )  '  DUf f ( I . j ) 

30  continue 

40  continue 

eno 


c - RoDertsl  Operator 

c - Digital  Image  Processing 

c - D  177 

c - Derek  Holland 


suDroutine  rooerts i ( * . f s ize ) 
reaf4  f(  128.  128) 
integer  f size . ' .  j 
real*4  Duff( 128. 128) 
common  /buffers/  Duff 
cr -rf  .' RODerts  I  Ooerator 
oo  20  ’  '  2.fsi2e-l 
dO  10  ;  •  2.fsi2e-‘ 

a  '  (f(  1 l-'l  1-1 . " 

D  •  (f(l*',j)-fti.l*1't 
Duf*(i.j)  »  sqr-(a*a*D‘D) 
10  continue 
20  continue 

do  40  1  *  2.fsize-l 
00  30  J  »  2.fsi2e-’ 
f (  1  .  J  )  «  Duf f (  1  . J  ) 


30  continue 
40  continue 

eno 

5 - - - - - - - - 

c - ---Wallis  Ooerator 

C-- - Digital  Image  Processing 

0 - -p  489 

C - --Derek  Holland 


suDroutme  wa  1 1  is(  f .  f  s  ire ) 
reBl’4  f(  128. 1281 
integer  f size.  i  .j 
real *4  Duff ( 128. 1281 
common  /Duffers/  Duff 
pr int* . ' Wal 1 1 s  Operator  ' 
do  20  1  •  2.fsire-i 
00  10  J  •  2.fsize-i 
50  *  •  aloglO( f ( i . j ) ) 

y  •  alogioi f ( i . j*i ) )/4 
z  •  a1oglO(f( 1*1. J )  )/4 
o  •  alogioi f ( 1 . ;- ’ ) 1/4 
h  «  alog10(f( i-i.j )  )/4 
Duff(i.J)  «x-y-z-a-n 


10  continue 

20  cont 1 nue 

do  40  1  »  2.fsize-i 
do  30  J  »  2.fsi2e-i 
*(  1.J  )  *  Duff(  1.;  ) 
30  continue 

40  continue 

end 


c - WEIRDwallis  Operator 

c - Digital  Image  Processing 

c - p.  489 

c - Derek  Holland 


suproutina  watrowal 1 is(f .fsize) 
rea1*4  f ( 128,128) 
integer  fstze, i . j 
real *4  buffi  128, 128) 
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nue 


=0  40  •  «  2. 'size-' 

=s  30  ,  =  2.-s;2e-‘ 

‘  <  i  .’ !  )  «  •■ .  j  j 

3C  continue 

40  cont 1 nue 

eno 

- - - - 

c - Compass  Direction  Mbsk  »  SOuTHEtS* 

c - digital  image  processing 

c . . p.  481 

c - DH 

suoroutine  comossssel f . f s ’Ze) 
real -4  f ( i28.  128) 
integer  fsize, i . j 
rea1*4  Puf #( 128 . 128  ) 
common  /duffers/  duff 
print- . 'SOUTHEAST.  ' 

00  20  1  •  2.fsize-i 
00  10  j»  2.fsi2e-i 

duffli.j)  •  -*(  1  - 1  )-f(  1  .)♦■•)**(’*  1 .  j*i  )- 

♦  f ( 1-1 .  j  )-2-f (  1 .  1  )-f (  1-1 . 1 >*f ( 1-  •  )*f ( 1 .;-i )* 

*  f( 1*1. 1-1 ) 

10  continue 

20  continue 

00  40  1  •  2.fsize-i 
oo  30  ;  -  2 . fsize-  1 
f ( 1 . j )  •  duff!  1 .  1 ) 

3C  continue 

40  continue 

eifl 

g - - - - - - - 

C-- — ---Comoatt  direction  mask  -  SOUTH 

c - Digital  Image  Processing 

C” . P.  481 

C - DH 

sudroutine  comoasssf f . 'Size ! 
real-4  f(  128. 128) 
integer  fsize. i .j 
real-4  ouff( 128.128) 
common  /duffers/  duff 
pr int- . "SOUTH  ■ 

00  20  1  >  2.fsi2e-i 
00  10  J*  2. fsize-' 

ouff(t.j)  •  -'( 1-1 .;*•»-'( 1 . :*i )-f( 1*1 .:*i )- 

-  f( 1-1 .; 1-2*' , 1 . ;  )*'( '-• .3  )*f ( 1-’ .  j-1  )*f I  1 . j-1  )- 

-  f(i*l.j-') 

10  continue 

20  continue 

00  40  1  •  2. fsize- 1 
oo  30  J  •  2. fsize-’ 
f ( 1 .  J )  •  duf f ( 1 . ;  ) 

30  continue 

40  continue 

eno 

c - --Compass  direction  maSK  -  southwest 

c - Digital  Image  Processing 

- - e,  4S1 

C - OH 

suoroutine  comoassswCf .fsize) 
real's  f( 128. 128) 
integer  fsize. i . j 
real -4  Duff ( 128. 128) 
common  /duffers/  duff 
print-. 'SOUTHWEST.  ' 

00  20  1  *  2.fSize-l 
do  10  j«2.fsize-i 

Duff(i.j)  •  f  ( 1  - 1 .  J*  1  i-f  ( I  .  j-i  )-f  ( 1*  1 .  1*  1  )* 

♦  f ( 1-1, J  )-2*f( 1 . 1  )-f ( 1-’. j  )*f( i-l.j-l)*f( 1.3-1  )* 

♦  f(i*i,)-i) 

iC  continue 

20  continue 

00  40  1  ■  2.fstze-i 
do  30  J  *  2.fsize-i 
f(l.J)  •  DUff(I.J) 

30  continue 

40  continue 
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c 

c 


S  ^  3  -  "“Set  ‘  O*'  '*23-  “  *t;” 

- D-j-:’  ;rape  ®-cce£S"'3 

hS" 

. Oh 

suDroutme  comoassw(  *  ,  *si2e  I 
real*'!  fi  '.28,  128) 
integer  ‘size.  i .  j 
rea)*4  Duf f f  128 . 128  ) 
common  /ouffers/  Duff 
print* . 'WEST  ' 

00  20  1  •  2.fsi2e-i 
00  10  i=2,fsi2e-t 

DU‘‘(',J)  •  f  (  1- 1  )*f(  1  ,  j*i  )-f(  1*  1 .  j*' )* 

♦  *('-l.j)-2*f(i,j)-f(i*1.J)*'f(i-l,J-l  )*f(  1 .  j  - 1  )- 


♦  ‘( I*! , J-1 ) 

10  continue 

20  continue 

00  40  1  =  2 . f S ize- 1 
00  30  j  •  2,fsi2e-i 
f  (  1  ,  J  )  •  Duf  f  (  1  ,  J 
30  continue 

40  continue 

eno 

c - - - 

c - -Comoass  Direction  masK  -  NORTHWEST 

c - Oigita'  Image  Processing 

c . P  481 

C . DH 


suoroutine  comoassnw( f . f s i ze I 
real*4  f( 128. 128) 
integer  fs'ze.  i ,  j 
real*4  ou‘lM  128,128) 
common  /ou/fers/  Duff 
print* , 'NORTHWEST  OPERATOR.' 

00  20  1  »  2.fsi2e-l 
00  10  ;  *2. f size,  i 

Duff(i.j')  •  ‘(  1  - 1  ,  1*  1  )*f { 1  , jr  1  )»f (  1*  1 , J*  1  )• 

*  f(i-l,j)-2*f(i,j)-f(i»i,j)*f(fi.j-i)*f(i,j-i)- 

*  f ( '*1 . J -1 ) 

10  continue 

20  continue 

00  40  1  •  2.fsize-i 
00  30  J  •  2.fsi2e-i 
f (  ■ . J  )  •  Duf f (  1  .  J  ) 

30  continue 

40  continue 

eno 

- - - - - - - -  —  ....... - - - - 

c.. - --Horizonta)  linear  Detection  mask 

C-. - - — Digital  Image  Processing 

C . p  481 

C - DH 

SuDroutme  nor izontal  i  ( f  ,  f s ize) 

real*4  f ( 128. 128) 

integer  fsize.  i .  j 

real *4  ouff (  128. 128  ) 

common  /Duffers/  buff 

print* .  'Horizonta  1  .  '■ 

Oo  20  1  *  2.fsi2e-i 
00  10  J  »  2.fsize'i 

buff(i,j)  •  f  ( 1 , 1  )-f  (  1 ,  j*-l ) 

10  continue 

20  continue 

Oo  40  1  »  2.fsize-1 
00  30  J  •  2.fsii'e-i 

f  (  1  ,  J  )  •  O'.’**  (  1 ,  J  ) 

30  continue 

40  continue 

eno 

g - - - - - - 

c - vertical  linear  Detection  mask 

c - Digital  image  processing 

c - D  480 

c— . DH 

subroutine  vert ica 1 1 ( f , fs ize) 


30  3C  .  =  ;  ^s-re-' 

j  •  -  •  j  i  . 

oont  ’  '^us 
oo'^T  1  nue 


enc 

c - - - -  —  - - - - - - - — 

2 - Kirscn  Eac.e  Coe-ator 

; - Digital  Imaae  Processing 

C . p  489 

C - DH 

suproutme  k  i rscn(  f ,  f size) 
rea1*4  f ( 128. 128) 
integer  fstze.  i . j 
raal*4  buff ( 128. 128) 
common  /'ouf*e’'S/  buff 
or  tnt • . 'Ki rsc"  ' 

00  20  1  *  2,fsize-l 
00  10  J  •  2.fsi2e-1 

a  •  5’(f  ( 1-1 ,  j*i  )*f  ( 1 .  j+1  )*f  ( 1*1  ..'*1 )  )-3*(f  ( 1*1 ,  j  )♦ 

*  f ( 1*1 , j - 1 )*f ( i,j-i)+f(i-i.j-i)*f(i-i.j)) 

b  •  5*( f (  1 , j*1  )+f ( 1*1 . J*  1  )*f ( 1* 1 , : 1 )-3*( f (  1*  1 .  J-1  )* 

*  f (  1 . j-1  )*f ( 1-1  .  j-1  )*f( 1-1.J  )**<  1-1 . J*1 )  ) 

e  •  S*(f ( 1*1 , j  +  1 )+f ( 1*1 . J )*f ( 1*1 .:-l ) )-3-(f (  1  .  j-1  )* 

*  f ( 1-  1  . j-1  )*f ( 1-1 . J  )*f ( 1-1 . J*1  )-f ( 1 . J*1 )) 

0  •  5*( f ( 1*1 . J )*f ( 1*1 . J- 1 )*f ( 1 . J-1 ) )-3*(f ( 1- 1 ,  J-1  )* 

*  f ( 1-1 . J )*f{i-1 . J*1)*f( 1 . j*i <*f ( 1*1 . J*1)) 

e  •  S-(«( 1*1. J-1 )*f ( 1 . J-I)*f ( 1-1.J-1 ))-3-(f ( 1-1 .  J  )* 

*  f ( 1-1 . 1*1  )*f ( 1 ,  1*1  )*f ( 1*1 . J*1  >*f ( 1*1 .  j ) ) 

t  •  5*(f  (  •'.  J -1  )*f  (  1-1 .  J-1  )*f  (  1- 1 .  J)  )-3*(f  (  1-1 .  J*1  )* 

*  f(i.j*’)**(i*l,j*1)*f(’*l.j)**(i*’.j-1)) 

g  .  5*( f (  1-1  . J-1  )if ( 1-1 . J )*f ( 1- 1 . J-l ) )-3*(f t  1 . J*1 )* 

*  f  (  1*1  .  j*1  )*f  (  1  +  1  .  J  )*f  (  1*1 .  J-1  '*f  (  1  .  J-1  ) ) 

n  •  5*( 1 , J )*f ( 1-1 . j*1 )*f ( 1 . J*1 ) )-3*(  f ( 1*1 . J*1 )* 

*  f  (  1*1  .  1  )*f  (  1*1  ,  J  -1  )**(  1  .  ;  -  1  )**'  -  -  1  .  J-1  )  ) 

X  •  max(  aosl a ) , abs( b ) . aosi c ) . abs( o I . abs(  e) ,abs( t ) . 

*  aos(g) .aostn) ) 

buf f (  1,1)  •  maxi l  . x ) 


10  continue 

20  continue 

00  40  1  •  2.fsize-l 
00  30  J  •  2.fsize-i 
f(  1  .  J  )  •  ouffl  1  ,J  ) 

30  continue 

40  continue 

eno 

Q........ - ... - ... - 

c. - - — Histogram  Soualization 

e — --•- — Tj  Klausutis 
c********”8/8/69 

SUBROUTINE  HIST(pFP4.FSIZE) 


REAL*4  PFPAl 128. 1 28 ). GMAX . GMIN. DELTA , 

*  TESTI .TEST2. TESTS. TEST4,  PB(254) 

integer  FSlZE 

C  THIS  ROUTINE  PERFORMS  A  HISTOGRAM  EOUAILIZATION  ON  A  128X128 
C  ARRAY  OF  PIXEL  VAlUES.  THIS  CAN  BE  PERFORMED  BEFORE  OR  AFTER 
C  A  threshold  IS  PERFORMED  ON  THE  FOCAL  PLANE  IMAGE 
C  ADDED  TO  the  DSM  7-27-89  BY  TJK 

C  INTIALIZE  the  probability  DENSITY  FUNCTION 
DO  11  K» 1.254 
PB(K)»0 

11  CONTINUE 

C  FIND  The  min  and  max  values  in  THE  PFPA  ARRAY  OF  VOLTAGES. 
GMAX«PFPA( 1.1) 

GMIN»PFPA( 1.1) 

00  10  1*2.  127 
DO  20  J*2, 127 

IF  (PFPA(I.J)  .GT  GMAX)  THEN 
GMAX  •  PFPA(I.u) 

END  IF 

IF  (PFPA(l.J)  LT.  GMIN)  THEN 
GMIN  •  PFPAl I.J) 

END  IF 

20  CONTINUE 

10  CONTINUE 

C  calculate  DELTA  FOR  254  EVEN  INTERVALS  BETWEEN  GMIN  AND  GMAX 


:  *  ;  ’se  -  ' 

ai  ■  .  »  :.'s'.ze  -  • 

••  (Dfoat'.j)  ne  0)  tner 
30  i  c  =  2, fsize  -  ' 
ao  3  a  =  2,fsize  -  ! 
t *  ( ! -c , ne .0 )  tnen 
=  (j  -  d)/(i'  -  =) 

else 

m  •  fsize  ♦  1 
end  if 

c  *  j  -  (m* 1 ) 

s lopei 1 nt (m) . 1 nt (D/sc  ) )  •  slooeC int(m) . 
int( D/sc) )  *  1 

'*  {slODBOnftni). 'n*(o/sc))'.gt.max)  tnen 
max  =  s 1  ope ( int(m) . int (D/sc) ) 
enoif 


3  continue 

4  continue 
enoif 

1  continue 
print" . 'ROW  •  '  .  i 

2  continue 

c - Tnresnoio  slope  array 


print" . 'TnresnolOing  s)oDe()' 
print". '  MAX  * ' , max 
print",  THRSH  ■'.max*  7S 
count  »  C 

00  8  r  «  -f s 1 ze . ( f s ize* 1  ) 

00  7  c  •  -SlDSZ.SlpSZ 

1'  ( s looei m, D ) . 1 t . ( max"  75)1  THEN 
slopetffi .01  *  O 
count  =  count  *  1 
enai  f 

7  cont’nue 

8  continue 

print  of  entries  removeo  “  .count 

print".'!'-  of  entries  removeo  =  '.  (count*  iOO)/(  ( 4"ts  t  ze*s  Ipsz  )♦  1 ) 

c - •••-Cross-"eference  oata  (n  sloDe(  )  witn  pfpa)  ) 

StD  «  -SlpSZ 

flag  •  0 

00  IS  D  «  -SlOSZ.SlDSZ.-i 
00  14  m  •  -f s ize. fsizeri 
if  (s!ODe(m,o) ,ne.O)  tnen 
ste  •  0 
enoi' 

14  continue 

print"  '8( Step  1 )  «  '  .0 

15  continue 
eoo  *  slosz 
‘lag  »  C 

00  17  e  *  slosz. -SlpSZ. -1 
00  18  m  »  -fsize.fstre-*i 
1*  (sioDe(m.D)  ne.O)  tnen 
eoo  «  c 
eno'* 

18  continue 

print" ,  'B(  steo  2 )  =  .D 
17  continue 

print" . 'Cross-referencing  oata  in  s1ooe(  )  with  pfoal)'- 
00  1 1  1  •  2.fsize-i 
00  9  1  •  2,*size-1 

1*  (Dfpa( 1 . j) .ne.O)  tnen 
'lag  •  0 

00  13  m  •  -fslze. ( f s ize* 1 ) 

00  12  b  X  stD.eoo 

If  ( j .eq. ( (m)* 1 )*(b"sc) )  tnen 
flag  *  1 
ra  «  129 
0  =  slosz 
enoif 

12  continue 

13  continue 

if  (f)ag.eq.O)  tnen 
pfoa( 1 . J  )  «  0 
enoif 
enoif 

9  continue 

onnt"  'ROW  »  '  .  1 
11  continue 

t  eno 

I  c - - - 

j 

i 


=  f 
- 1 


i 

-  1 


1 
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11.  Multilmaging  (MISP) 


i 
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OBJECTIVE 


Before  I  arrived  this  summer,  the  signal  processing  division  had  the 
ability  to  view  and  convolute  any  image  at  any  stage  of  an  interceptor’s 
endgame.  What  they  did  not  possess,  however,  was  a  utility  allowing  them 
to  process  a  series  of  images,  ala  the  entire  flight  path  of  that  same 
interceptor.  Sensing  a  need  (or  seeking  glory),  then,  Troy  Urquhan  (the 
other  SAI  apprentice)  and  I  set  out  to  develop  a  graphic  simulation  to 
handle  streams  of  images  -  a  SUN  workstation/vtlOO  variable  program. 

What  we  came  up  with,  God  help  us,  glosses  the  next  couple  of  pages. 

Again,  for  any  REAL  computer  nerds,  I’ve  included  the  listing  - 
unfortunately,  sparsely  "COMMENTED."  My  philosophy  is  basically  that  if 
one  is  not  smart  enough  to  figure  out  MY  programming,  he/she  doesn’t 
deserve  to  look  at  it. 

DESIGN  EXPLANATION 

Since  most  people  do  not  have  time  to  sit  at  a  SUN  the  entire  day,  I 
configured  MISP  to  run  either  from  a  PC  terminal  (NONgraphic)  or  from  a 
SUN  terminal  (graphic).  This  allowed  for  more  convenience  and 
friendliness  between  users. 

Basically  MISP  runs  with  a  simple  command  structure.  The  two 
front*ends,  being  graphic  and  terminal,  are  immediately  set,  to  eliminate 
any  user  indecision  or  crashing  throughout  execution.  Program  control  then 
simply  loads  an  image  up.  decides  if  it  should  display  it,  processes  it.  saves 
any  tracking  data  in  a  file,  and  proceeds  to  repeat  this  for  every  image 
specified  by  the  user  at  the  initiation  of  the  program.  After  this  is 
complete,  a  final  evaluation  is  displayed,  providing  an  instant  report  of  how 
all  the  Signal  Processing  performed. 

For  faster  writing  time,  Troy  and  I  divided  MISP's  subroutines 
between  ourselves.  I  wrote  the  graphics  and  signal  processing  sections, 
while  Troy  handled  the  I/O  and  user  interface. 

TESTING 

To  make  sure  old  MISP  ran,  Troy  and  I  fulfilled  an  immediate  goal  of 
our  section  -  to  process  the  entire  endgame  scenario  of  an  interceptor  - 
1493  consecutive  images.  This  we  did,  and  set  a  record  did  us  (or  is  that 
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we;  don't  I  sound  like  YODA?).  Ah,  well,  it  felt  neat  to  be  heros, 
ALGORITHM  EXPLANA'J  ION 
GRAPmCS 

The  SUN  carries  a  nice  interface  to  graphics  in  its  high-level  function 
libraries,  for  use  in  its  multiprocess  environment  SUNVEEW,  or  XVIEW  as 
many  will  now  know  it.  I  can't  really  explain  much  here  except  to  say 
"LOOK  IT  UP!"  Graphics  on  this  machine  is  just  a  matter  of  setting  the 
proper  pointers,  and  deciding  on  the  right  function  calls  (not  that  this  didn't 
involve  a  few  tricks).  I  believe  one  should  examine  the  program  listings  to 
decide  upon  what  I  did  here. 

SIGNAL  PROCESSING 


I 


MISP  contained  four  major  categories  of  user-defined  processing  - 
Preimage,  clustering,  centroiding,  and  tracking/hardbody  detection.  I  shall 
endeavor  here  to  explain  each, 

A  Preimage  algorithm  is  simply  a  program  module  which  takes  out 
noi'.e,  or  brings  out  an  edge,  or  some  other  helpful  operation  BEFORE  any 
real  multi-imaging  starts.  This  is  simply  to  aid  any  other  modules  or  to 
make  their  jobs  easier. 

Qustering  defines  an  operation  to  I)  decide  how  many  different  REAL 
targets  there  are,  and  2)  catalog  those  targets  and  differentiate  between 
them.  The  routine  that  I  wrote  for  MISP  is  really  pretty  simple,  using  an 
integer  array  to  store  the  targets  and  incrementation  to  differentiate 
between  them.  My  scanMatrix  is  L-shaped,  and  seems  to  perform  fine 
under  most  circumstances. 

Centroiding  is  sort  of  like  finding  a  center  of  gravity  in  an  object.  It 
is,  specifically,  the  process  by  which  a  point  is  located,  where  for  certain 
Mathematical  operations,  all  mass,  intensity,  or  area  can  be  thought  of  as 
balanced  at  that  point.  This  is  useful  for  storing  locations  of  a  target,  or  for 
a  general  catalog  of  a  target's  movements. 

Tracking^ardbody  detection  describes  the  process  that  determines  if 
the  current  object  is  indeed  a  missile  plume  (not  a  cloud),  and  if  so,  finds 
where  the  body  of  the  missile  is  located,  for  guidance  purposes.  This  is 
accomplished  by  first  measuring  the  velocity,  acceleration,  and  distance 
that  the  "target"  has  traveled  in  the  past  time  interval.  If  these 
measurements  fit  a  certain  envelope,  then  the  program  calculates  the 


probable  location  of  the  hardbody,  printing  these  out.  Finally,  the  program 
stores  this  increment's  data,  ready  for  the  next  image. 

CONCLUSIONS 

Well,  what  did  you  expect?  It  WORKS.  OK?!  Ah,  you  probably  want 
me  to  say  that  "Many  more  time-consuming  modifications  will  have..."  No 
way!  I’m  through  with  MISP  for  this  summer.  The  apprentice  part  is  done. 
Troy  and  I  WROTE  MISP  in  three  days,  and  spent  THREE  WEEKS  debugging 
it!!!  I  REFUSE  to  go  through  that  again.  Noway. 

It  works.  Amen  (angel  songs,  please). 
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NIultiple  Image  Signal  Processor 

(MISP) 


I 

i 


I 

I 

1 
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'Se-'-'S  v:!5S:C‘, 


'  ' ncl  J3e  <nat'' 

''rc’.aae  <stO'c 
•ip.cluae  <ST''!ngs  p? 

•incljae  <suntool / sunview  p> 
»>ncl<jae  <suntool /canvas  n> 
•'■ncluae  <suntoot /oanei  n> 

•weftne  IMQEXT  -  jmg" 

»aefine  SGPEXT  -.sap- 
♦oefine  INTEXT  ".mt" 

*<3eftne  AREEXT  '•  are" 

•define  COMPRESSCMD  "compress  " 

•define  COMPRESSEXT  “  2" 

•define  UNCOMPresscmd  "uncompress 


-ijiSsisStL  . 

•define  DEFAULTGAINOF?  0 
•define  OEFAULTGAIN  i 
•define  OEFAULTOFFSET  o 
•define  DEFaulTSCENEST  o 
•define  DEFaultthresh  i 
•define  OEFaultthreshv  4 
•define  DEFaultclust  i 
•define  OEFAUUTAIMIPT  1 
•define  DEFAulthardot  o 
•define  DEFaUvTtrackvc  2 
•define  DEFaui.taimpt 
•define  OEFAUL" TRup  50 
•define  DEFAULTTRlO  i 
•define  OEFAULTkFOuR  i 
•define  OEFAULTKThREE 

Frame  frame,  oanframe.  sigframe-. 

Canvas  canvas,  sigwm: 
winaow  Dane) 

/•  MIS» 

;  -Tne  Multiple  Image  Signal  Processing  simulation 

;^Oeveloped  uuly-August  1990  oy  HSAPs  Oerex  Holland  S  Troy  urcunart 

•include  </nome/derek/simu1at lon/Glopai .h> 

int  true,  trio.  '  '  ’ 


int  'arrf  12bH  128) . 

sarrf 128){ 128], 
int  display; 


idarrf I28)t 128). 
Sdar-i  128)1  128];. 


float  gam.  offset,  icentslfini  a-enf  1 1  r  mi 
F  oat  oicenOJdo).  oacon(3)[°6i^  ^ 

loat  ktnree.  kfour.  variaoie: 


f?LE  •sc”??^‘®?lA^’’??f^®°''"="'^*-^"«f£0).flne1_f,le[50}.f,,ename(50): 


mainCargc.  argv) 

int  argc:- 

cnar  •■argv> 

extern  int 
cnar 


display; 

Strl3}; 


■"'o-  «  .<p»i  ^  « 

.  g«tsfstrl?°"  •"aol*  grapntc*?  [y/n)  " ) ; 

^  9Papn_set(8rgc.  argv); 

t'  ( Idisplay) 


term_set( ) ; 


exit(0) : 


f inai_evat( ) 
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3a  w'  ‘  ’:eoac<a’*oo’“st  z- 


35-  -S-  ‘ 


xs*  x<35-  YSy-j 

•O'"  I  ^  =  •  ,  .  <35-  .  ^  =  - 3  > 

3;.J  \ 

Ow_Du-;iDv.. 

-f  (  (  iaa'''';x/3] ; ,  '3)>*2  )&&(  laarr;*  '3  1 1  y/3  )<=6  )  ) 
Dw  put( Dw  X.  >  ' I : 

Dw^DutCpw.  X* 

pw“put  (  DW .  X*  1 .  V-  ! .  1  )  :• 

Dw~put  ( DW .  X .  y-  • .  • ) 
pw  put  ( DW.  x+2.  y  .  1  j  :• 
pw“put ( pw . x+2 . y-2 . 1 ) : 
pw  Dut(pw,x,yw2, ’ ): 

\  “ 

if ( ( iDarrix/3 j[ y/3)>*7 ) )  { 

pw_put(Dw.  X.  y.  1);. 
pw“put(Dw.  x»l.y.i):' 

Dw_put(pw.  x+l.y-1.1).' 
pw~put  ( pw .  X .  y*  1 . 
pw~put  (pw.  x*2.y . ' )  :■ 
pw~put  I  DW .  x»2 .  V*  ’ .  1  )  :• 
pw'put  (Dw.x*2.y»2.l):' 
pw~put(Dw.  x*!  .y2.  1 )  :■ 
pw~put  ( pw .  X .  y»2 .  1 )  :• 

\  “ 


gr'aDn_Droc( ) 

extern  mt  sarr  i  128 )  T  128) .  saarr{  128)  t  128] 

extern  cnar  f i icnamefSO] : 

register  oixwm  -sw; 

register  tnt  '.;.x.y; 

u  cnar  repf  128J , 

Diue(128). 
green]  128  j  :• 


Sw  =  canvas_Dixwin(sigwin); 
j  •  0;- 

fpr  (  1  *0;  i<  128  :  1**  )  < 

J  *•  2:- 
If ( J««256) 

J  «  255.. 

Dlue[']  •  green]  1  j  *  reaii)  * 


pw_setcmsname( sw.  “HSAP"). 

pw~wr  1  tePaCKgrounPI  sw.  1 .  ' .  384 . 38a  .NULL ) 

for] x» 1 : x<384 : x*x»3  )  { 

f or( y« 1 ; y<384 : y*y*3 )  { 

1  f  (  (  SOarr]x/3]  ty,'3J**1 )  )  { 

pw  put(Sw.  x*1 .  y*  1 .  1  )  ;■ 

\  “ 

if  ( (  saarr  Jx/3)  ly/3)>»2)M(  saarr  ]x/3  ]  Jy/3}<*6  ) ) 

pw_put(Sw,  x.  V,  11:- 

pw^putlsw.  x-*1.y.1);- 

Dw~DUt(Sw.  x*1.y-l.1): 

pw~Dut  (  s» .  X .  y*  1 .  ’ )  :■ 

Ow~DUt 1 sw . x*2 . y . 1 ) : 

Dw_put  (  Sw.  x*2 . y*I .  1 )  :• 

Dw~Dut  (  sw .  X .  y*2 . 1  >  ;■ 

\  ~ 

if (( saarr [x/3l (y/3}>»7 ) )  { 

pw_Dut(sw.  X.  y.  1): 
pw3put(sw.  x*1.y.1); 
pw_pot(sw.  x-*1.y*l.1): 

Ow~put  (  Sw .  X .  y*  1 .  ' ) 

Dw~Dot  (  Sw.  x*2  .y .  1 )  :• 
pw'put ( sw . x*2 , y* 1 . 1 ) ; 
pw~out(Sw.x*2.y*2. 1); 
pw^ut  ( sw.  x*i  .y*2. 1 ) : 
pw  put(sw.x.y*2. 1 ): 

)  ~ 

> 

) 

static  viewimgj]).  outtprj]),  rur._simuiationj( ): 

grapn_sat(argc.  argv) 
int  ergc: 
cnar  "argy;  < 
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aets*  ‘r.oz 


game-*  =  ’''eric!  -  C5, 


'  (St-iOJ  »•  -D  ! 

Drintf(  “Scene  stac-s  -.zation;  \r- ) 
printf(”\tC)  none-n'); 

’  Stanoara  SP»D  a l oo- -  tnmsNn" )  • 
wnne  (.notiOj  •=  -o-  SS  tnptfS}  ^  m")  ■ 

^  getsCjnpt);. 

scenest  *  tnptjo}  -  48; 

f  (Str(0]  «•  '£') 

pnntf  (  “Thresnola-  \n“  )  • 

Pfintf  ( “XtO)  none\n“);.' 
printf(“\ti)  Fixeo  valueXn”)-. 

^  >  P«f‘centage  thresnoloNn* )  ■. 

wnitednptio  !•  -o-  &8  inptlOj  '*  ']'■  sa 

^  inottO)  !•  •2")  I 

^  aets(inpt):. 

thpesn  •  inptto}  -  48; 

( str[o]  »«  'F  '  ) 

pp  1  nt^ (  “C luster ina .  \n"  )  *. 
ppintF(“\tO)  nonevn")- 

^  getsdnpt):. 

dust  »  tnptiO}  •  48;. 

( stP(O)  »«  'G' ) 

prints ( "TracKing- \r“); 

ppinJfKv^oJ  *''®*  centPoipXn-); 

Y  ,  n,;  t  f  ''’tensity  cent  -p ,  p  \n  ■  ) ; 

wniie  (inDt(O)  •«  --v  aa  inpt(OJ  ••  i') 

getsCinpt);. 


tpackvc  *  motCOJ  -  48;. 

*  (stP(03  «•  'H'l 

prints ( “Aimpoint  offset-Xn")’ 
ppintf(“\tO)  none\n“)r 

Snl?I(!no;fn}®^*"®*''°  «'goPitnras\n”); 

wd  <e<  inptfoj  r«  -c'  &6  InpttO]  •• 

j  gets(mpt): 

aimpt  =  inptfoj  -  48; 

f  (stP(OJ  *»  'I') 

pptntf ( “HapODoay  oetect ion: \n' ) • 
pplntf(“\tO)  none\n"); 

pvri  inpttor?"''"^”  ir^npifS)’!!;"’^?;'' 

^  gets(inpt);. 

haroat  *  mptio]  -  48: 

(stP(01  ••  'Z') 

ppintf{"\tT)  StanaaraXn* ) ;. 

wnila  (inpt(o)  <•  'c  &&  inptfo]  !*  '!•) 

j  gatsiinot);. 

comppts  •  inctfo]  -  48: 

(stpfoj  **  '0') 

petupn: 

(stp[0)  ••  'a') 
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c'  •'-t"  "Ga  ■-  »  • 

-■ ssgeti  I 
ga''".  '  vanaole 

if  (Str[Ci  ==  ’D'  ) 

{ 

pr  intf  (  “Of  fset  =  ’  . 

ti'isDget(  )  :■ 

offset  =  variable;. 

t 

If  (str[0)  •«  'c'  ) 

< 

pnntf  (  “ThresnotO  •  “I.- 
mispget( ) 

tnresnv  *  variable: 

> 

if  (strfoj  •*  'b'  ) 

{ 

pnntf  (“Max,  target  movemont/f  rame  «  "):• 

mispgeti ) : 

trub  *  variable: 

} 

if  (str(o)  '*  'e') 

pnntf  ("Min  target  movement /frame  *  "):• 

mi  3pget(  ) 

trio  •  variable: 

) 

i f  ( str(03  *»  ' f '  I 
{ 

pnntf ("K3  constant  •  “): 
misoget(  ) :- 
k three  *  variable;. 

\ 

If  (str[o)  ••  'g') 

( 

onntf(“t<4  constant  *  ")^ 

m  1  spget  (  ) ;. 

ktnree  •  variable;. 

\ 

> 

) 

menu  aisolay( ) 

<  ~ 

extern  char  script  fiie(50j. 

f  inal_ftle!50j:. 

extern  int  gamoff,  scenest.  thresh. 

tnreshv.  dust.,  aimot.  harpot .,  trackvc.  trup. 
trio: 

extern  float  gam,  offset,  kthree,  kfour:- 


print*(  "NnXnMISP  setup  \nSn“);. 

pnnt'CA)  Senot  f  1 1  e  ■  \  t\ t\ "’/.s\“\n"  .  scr  ict_f  1 1  e ) .. 
print*!  "Bl  ®inal  f  1 1  e  •  \  t  \  t  \  "‘/.s\ "\n“ .  f  ina  l_f  1 1  e ) : 
pnnt*(“C)  Gain  &  offset  \t"):  ~ 

if  ( Igainof*  ) 

{ 

pnntf  (  "none\n“  )  :• 

) 

If  (gamoff  »•  1) 

pr int*( “Stanoara  SPPD  a  Igor i thms\n- ) ; 

pnntf  I"  a)  Gam  »  %f\n  p)  Offset  ■  %f\h"  .gein.of  f  let ) 

) 

printf(“01  Scene  stabi ' tzat ion. \t " ) ; 
if  (! scenest) 

( 

pr  intf  (  “noneXn"  ) ;. 

) 

if  (scenest  «•  I) 

{ 

pnntf  (  "Stanaara  SPPD  algor  i  thms\n" ) ;. 

) 

print*!  "£)  Tnresnola  \t"):. 
if  ('tnresn) 

( 

pnntf  ( "noneXn* )  :• 

) 

if  (thresh  •»  i) 

{ 

pnntf ( "Fixea  valueXn"); 


If  (tnresn  *«  2) 

{ 

printf ( 'Percentage  tnresholdXn'); 
if  (thresh  »•  t  I  I  thresh  «■  2) 


exte —  cia'  %z~  •  e’5C..  ■  ■ ‘ename.  iC  . 

exte*"  -t-i 

sa'  '■  s  ■‘ooent  sc"ip':_*  1  te,  i 
if  (scr_*'  ==  NUi_k ) 

prin';f(  "ERROR-  Could  not  ooen  file.  ‘/.s\r" .  scr  iDt_‘ 1 1  e  i ; 
or  intf  (  • --M!SP  aoorteaxr' • 
ex  1 1  ( 9 ) 

reao  scriDt(  )  ■■ 


static  auitpr( ) 


winaow_aestroy(  frame)  :■ 
print'T"MISP  exit  " ) 


read  script)  ) 


extern  cnar  f  i  lenametSOl  :• 

extern  FILE  ■scr_fl> 

int  count*©;- 

wnile  ( f  1 1  enamei count-1  ]  '*  count  <»  SO) 

{ 

f  1  lenamefcount]  *  f getc( sc'-_f  1 )  :• 
count-** : 

) 

f  1  lenamet count- 1  ]  *  '\0‘:- 
count  •  fgetcl  scr_f  1  ) ;. 


static  run  simulation)) 


.extern  int 


o  1  splay;- 


/•  va-iaoles  for  «ile  i/c.  etc 

extern  cnar  f i lenamelSO] : 

extern  -IlE  •SCr_fl,  •final_fl. 

extern  cnar  scriot_f 1 lelSO)? 

f inal_?i let  SO) ; 
extern  float  icenC3](lO]; 

menu ) ) ; 

If  )script_f lleCO]  ■»  '\0')  (  strcpytscr iot_f 1 le.OEFAUL'SCRIPT ) ;  ) 
If  )  f  inal_f  1  letoj  •»  '\0')  t  strcpy)  f  inal_fTle.O£FAULT'INAL ) :-  > 
ooen_scr ipt) ) .  ~ 

ini t“f inal ) ) ; 

wni ii)f 1 lenametO]  '•  '\0') 

{ 

2ero_cent)  )  :- 
load^image)  )  :- 
if)  iceni2)toj  '»  2) 

if )disolay*»i ) 


tnresn_img(  )  ;- 
grapn_Tmg)  )  :- 


siQnal_process(  ); 
'f  )display«»i) 


tnresn_oroc)  ) : 
grapn_oroc)  )  :- 
^  graon_cent(  )  ;- 

save  process)  ):- 

) 

save_f inal ) ) : 

3WBp~centroid$I ) : 
read'script)  )  ;- 
printf )  “\n"  )  ;- 

\ 

Close) scr_fl ); 

final  _evaT )  )  ;- 

script  fileto]  •  '\0'': 

pnntfT'NnMISP  EXECUTE  COMPLETE  .\n\n' ) : 


sove_f inal ( ) 


extern  cnar  * i lenametSO] ; 
extern  FILE  'final  f1: 

extern  float  icen{3T[iO). 

extern  mt  trackvc: 

int  cen{3}[l0]. 

X.  y: 


acen{3][ 10] : 
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(IJtS'A'WiM  .■^*0*1(1)  J.BiiSSiiKJIsj  p»lt!«l8U 


S  *  '■cc .  •  C"- .  C-*^-!!£S3C^‘r  ‘ ; 
s • -ca  r ( cmc . name ) . 
system! cna ) . 

S  t  rcpy  ( cme .  COMORS  SSC.MD ) : 
street ( cmc. ' ; lename  > ; 
strcatlcmo.  IMGEXT);. 
sysTem(cma) : 


f, 

V 


i 


stgnal_process( ) 

\ 

extern  int  gamoff.  seenest.  tnresh.  tnresnv.  dust:' 

extern  int  f-up.  trio,  ntar: 

extern  int  larr ( 128 j i i2fi ) .  sa"r( 128][ 128 J : 

extern  float  gam.  offset.  iccn{3](  10}  .acan[3}  [  1C] ; 

extern  float  kthree.  kfour;. 

extern  char  fl  lename 1 50] 

int  target [  128] [  128 ] .  i.  n.  row.  col.  g.  h.  aval.  iwel.  j'.  y.  x:- 
int  a.  D.  c.  a.  e.  f:- 
*1oat  valux.  valuy.  vaiu: 

'loat  xca.  yea.  xsm.  ysm.  xv.  yv.  acm; 

float  rownoa.  colmoa.  rowmom.  colmom.  rowtoa.  rowtot; 

float  total,  totala.  maxtwo.  yaim.  xatm: 

printf  t  "\nSignal  Processing  image  Xs  .\n\n“  .  filename):' 
for(  x»0;  x<  128 :  X'**  ) 

for  ( y*0:  y<  128  ry-** )  t 

sarrixiEy]  =  larri'xjiy]; 


/•  Gain  ana  Offset  section 

if(gainoff  •*  1)  < 

pr I ntf(  "Running  SPPD  Gam  ana  OffsetVn"); 
f  or(  x«0:  x<  128  ix-**  I  { 

f Or(y»C: y< 128 ) 

sa-r{x}{yj  '  (gain*sarrfx]  [yj )  *  offset:. 


if(g8moff  0)  { 

/•ermtf("Ho  Gam  ana  Offset  salecta8\n’ ):  •/ 

> 

/•  Scene  stapi i izat ion  section  ■/ 

if(scenest  *»  0)  < 

/•prmtf("No  Scene  Staoi  I  ization  selecteo\n- ) :  •/ 


/• 


Thresnolo  Section. 


•/ 


if (thresh  •»  1)  { 

or  mtf  (  "Threshoia  *  /iaXn" .  thrashv) ; 
f0r(x«0:  x<128 ;  x*-" )  < 

fOr(y»0:y'.  138  :y»'»  )  { 

If (sarr{x](y]  <  thresnv) 
sarrix][yj  •  O: 


) 


> 


If (thrash  »•  0)  ( 

/*printf(*No  threshoia  seiactaaNn* ) : •/ 

) 


Clustering  section 


•/ 


if(ciust  ••  1)  { 

ntar  *  0: 

for(x»0:x<l28:x'**)  { 

fop(y*0:y<l28:>'**)  { 

If (sarrjxjtyj  >  0)  ( 

if(nter  »•  0)  { 


tapget[xj[yj  •  i: 
ntar  «  1 : 

> 

else  »f(targettxl[y-i}  >  0)  ( 

^  targetCxHyJ  •  terget[xj{y-i J : 

else  if(tsP9et[x-iJ[y-i j  >  o)  { 


extern  mt 

extern  float 


Su*fU  •  Suf(O)  -  64, 

or  1  ntf  ( "  iinag* :  " ) 
g#ts(  f  1  lesppa)  :■ 

(fnesppafoj  *•  ■\o')  < 

typ.p  \n.):. 


strepy ( f  f  i esgp ,  f  n  asppp ) 
strcat(f 1 lesppa,  IMGEXTjj 
strcat(f  Desgp  SGPExT), 

for  (m»0;  m** ) 

{ 

If  (suffix  ..  1  Ij  (suff,x  ..  3  M  m..0)) 

^  fp  •  fopan( f 1 lesppd,  “r"); 

If  (suff,x  ..  2  II  (suffix  ..  3  s&  m-.D) 

^  fp  «  fopen(f  1  lesgp^  "r");. 

If  (fp  !•  NULL) 

for  (cx»0.'  ox<»i27;.  cx**)  {  for  (cy»0::  Cy<»127;.  cy**) 
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mmtit .  sj***#^.  wwebu 


i 


i 

I 

\ 

I 

I 


O'"  (Co^'':  =  ‘  ecu'** — ’ 

2 .  te  *  *aetc(  *z. ) . 

*  (D\^e>*'*S  &&  ovte<*5'’>  ' 

»arr(cx}[cy}  *  iarr{cxj(cv3  -10* 
oyte  -  48. 


>) 

f cl osel f D ) ; 

prtntf ( "Seal ing  intensity  array  tor  aisplav  .  .  " ) : 

for  (ey=0:  cy<*127;  cy*»  >  (  for  (cx«0.  Cx<.127..  cx** ) 

{ 

laarr  i ox  ]  icy  i  ‘  f  larrfcx)  (cyj  <»  128  )?  larri  cx  i  [  cy  1  128,- 

)) 

oisDimgl  suf  f  1 X,  ir).' 

if  (suffix  •»  1  I  I  suffix  ••2)  {  m  «  2;<  ) 

)) 

) 


Static  01  spimgi  suf  f -1 X  ,ni) 
int  Su*'ix,  m;- 

extern  int  iarr[  128  1  [  128  1 .  idarr [  126 ]  1 128 j  ;• 

extern  cnar  f 1 lenamefSO] . 


register  Pixwin  'pw; 
register  mt  i  ,  J  .  x ,  y ; 
u_cnar  rea(l28]. 

Dtue!  128  1  . 
greent 128 ] ; 


1  * ( su*f 1 x»* 1 )ow 
1  f ( su*' ’ x*  »2 )0w 
if(su**’x..3  && 
lf (su*' ix««3  && 


•  oanvas_Dixwin(canvas  ) . 

«  canvas^D  1  xw  1  n(  s  igwin )  .■ 
m»»0)Px  •  canvas_o ixwin( canvas  I } 
ni«»i)pw  «  canvas2e>'xwin( s igwin  1 


J  •  o.. 

for( 1*0: 1<128: i**  )  ( 

;  ••  21 
tf( j*»256) 

J  •  2S5;. 

Plueli]  *  greeni  1  ]  •  reOi  i  ]  «  j  ;• 


Dw_setcmsnanie(pw .  “HSaP"), 

ov~wr  1  teoacKgrounaCpw.  1,1. 384 ,384  .NULL  )  ,• 

f or( x« ' ; X<384 . x»x*3  )  ( 

f or  (  y»  1  : y<384 ; y»yr 3  )  ( 

if  ( (  lOarri x/3) {y/3]«*1 ) )  ( 

Ow_put(Dw,  x*1,y*1,1)i 

'f ( ( iaarrix/3);y/3)>*2)5S( iaar-[x/3} [y/3]<‘6  )  )  ( 

OW_put  (pw  ,  X  ,  y  .  1  )  ;• 

output  (pw.  x*1,y,1):- 

pw~put(ow.  x*1,y+1,1).. 

pw^PUt  ( pw ,  X ,  y*  1 1 )  :■ 

pw~out  ( pw .  x*2 ,  y .  1 )  :• 

pw~put ( PW . x*2 . y*2 . 1 ) : 

pw~put(pw,x,y+2. 1): 

)  ~ 

If ( ( iaarpix/3]{y/3]>»7))  { 

pw_pu  t ( pw ,  X ,  y ,  1 ) : 
pw3out(pw.  x*l.y.1):- 
pw~put(pw.  x*i.y*i.1):. 
pw^put  ( pw .  X  ,  y*  1 ,  1 )  .• 
pw~out  vpw ,  x*2 ,  y .  1 ) 

pw^PUtCpw.  xw2,  y*1 .  1 )  :■ 
pw~put  ( pw .  x*2  ,  yw2 . 1 )  :■ 
pw~Dut  (pw .  X*  1 ,  y*2 , 1  )  :• 
pw~put(pw .  X ,  y*2 ,  111' 


) 

graon_cent(  )  ,■ 


zero  cent( ) 

<  ~ 

extern  float  icen(3][10]. 

acent3][  10]  ;■ 

ini  X,  y: 


for  {x«0:'  x<»2;'  x** )  {  for  (y»(J;-  y<»9;-  y**) 

i 


I 
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III.  C30  Simulator  &  Bridgeboard 
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OBJECTIVE 


This  was,  in  actuality,  pretty  fun.  The  C30  is  a  special  chip  designed 
exclusively  for  image  processing  in  the  interceptor.  Now,  a  typical  vehicle 
uses  16  C30's  for  its  operations,  but  only,  say  10  are  active  at  one  time.  It 
was  thought  that  if  the  remaining  6  C30's  could  somehow  be  calculadng  the 
guidance  for  the  interceptor,  the  entire  guidance  chips  and  software  section 
could  be  eliminated,  conserving  space,  etc.  I  had  to  know  1)  Could  I  fool 
the  C30  into  doing  GUIDANCE  operations?  and  2)  Was  it  possible  to  write 
the  entire  guidance  system  in  a  language  syntax  the  C30  could  understand? 

THEORY 

Guidance  in  an  interceptor  can  be  divided  into  three  main  divisions. 
The  first,  the  law  generation,  computes  acceleration  commands  for  the 
thrusters.  The  second,  called  the  estimator,  decides  where  the  target  is,  and 
where  it  is  going  to  be  after  certain  thrusts,  etc.  The  final  pan,  the 
autopilot,  issues  the  actual  bum-time  commands  the  the  valves  in  the 
engines. 

SIMULATOR  AND  BRIDGEBOARD 

I  had  two  tools  to  help  me  in  this  -  a  simulator  of  the  chip,  running  on 
a  miniVAX,  and  a  bridgeboard  design  version  of  the  C30  itself,  running  on  a 
PC.  I  used  the  former  for  initial  testing,  the  latter  for  curiosity  satisfaction. 

PROCEDURE 

Since  I  had  no  previous  experience  working  with  guidance,  and 
because  the  simulator  ran  assembly,  through  a  separate,  special  C  compiler, 

I  had  to  do  a  LITTLE  research.  Initially,  I  modified  another  simulation’s 
subroutines  (GEsim  -  this  involved  getting  them  from  FORTRAN  to  C),  and 
ran  them  under  the  simulator  and  bridgeboard.  I  used  an  extended  Kalman 
filter  for  my  non-linear  estimator. 

RESULTS 


GREAT.  Everything  worked.  I  had  a  slight  problem  with  memory 


allocation  for  the  simulator,  but  that  was  fixed.  If  external  memory  can  be 
accessed,  the  interceptor  can  run  ALL  signal  and  guidance  processing 
through  one  set  of  chips.  WOW.  Feels  PRETTY  DARN  GOOD,  if  I  don't  say  so 
myself  (which  I  will). 

"THANKS.  DEREK." 

REFLECTIONS 

I  was  foolish  enough  to  attempt  ANOTHER  programming  job,  and  I 
now  realize  that  I  LOVE  programming.  However,  this  sort  of  demented 
Communist  crap  (language  translation)  is  not  suited  to  my  personal  taste. 

Other  people  should  be  found  to  do  it  (like  ax-murderers,  etc), 

SO  SATTH  THE  PROGRAMMER. 
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C30  guidance  code 

(NOTE:  The  following  C  routines 
are  based  on  a  FORTRAN  simulation 
called  GEsim.  I  take  no  credit  for  any 
of  the  FORTRAN  ideas,  but  many 
modifications  to  the  algorithms 
were  made,  allowing  me  to  take  some 
credit  for  the  C  code.) 


S'-:  = 


'■  Skiiir  vaf'iaDies  * 

XCOMP[s]  »  ( 
vcoMPiej  =  ■: 
ocxiej  »  t 
DCY[6J  »  < 

DCZ!61  = 

RATEOJ  •  < 

P0S[3]  •  ( 

AIX  » 

AlY  * 

AIZ  • 

AIXY  ■= 

FMASS  * 

XCOMP  • 

YCOMP  = 

ZCOMP  « 

OCX  • 

OCY  * 

DCZ  » 

XCG  = 

YCG  • 

ZCG  • 

/•  ATL0G4-at logs  variables  •/ 
IT0R0[3]  «  { 

/•  MEas  vanaoies  •/ 

HL[3l  =  { 

/•  LlNMEAS  VanaDles  ■' 

XK[9]  .  { 

HB(S7)  . 

R3  « 


/•  subroutine  Cauls 

* 


•  F 
•/ 


ina  out  orae'"  From  sofnaooay  . 


) 

/ •  Guide  •  / 

/■  Here  is  tne  guidance  laws  suOroutine  •/ 


guide! ) 

< 

extern  oouole  ROOT,  wx .  WV ,  WZ ,  UK[3),  XHATfiZl  QC 
extern  ooudle  TRIZBIS).  RANGE.  UIt3),  GTERR  AT  wt' 
extern  oouole  TGOL,  temp,  SUBTR  DELXT-- 


GAC, 

THO. 


GV.  GA 
TTOGO.  TGO. 


extern  mt  IGUIDE.  NDOF .. 


douoie  URx  «  c. 
oouole  URY  «  0;. 
dOuOle  URZ  •  0;. 
douoie  A  X  0; 
oouole  YMISS  *  0. 

/•  Relative  position  of  projectile  and  target  •/ 

URX  •  XHAT[  1  ]/RANGE:. 

URY  .  XHAT[2]/RANGE: 

URZ  •  XHAT(3  j/RANGE  .. 

If  { IGUIDE  >  1 1 
goto  10;- 

/•  PrO'NAV  Gu loanee  Routine 

Compute  Accel  conmianas  in  the  inertial  frame  -/ 

UI[1]  •  GC»RDOT*((URY*WZ)-(URZ*WY))-, 
u:(2]  •  GC*RD0T*((UR2*WX)-(URX-WZ))’. 

UI[3)  X  GC*RDOT*(  (URX'WY  )-(URYxwX)  )’• 

/•  Augmenteo  Guidance  Routine  •/ 

If  (IGUIDE  ••  1) 

{ 

Ultl]  *  UI[11  ♦  (GAC*XHAT(7] );. 

UI[2!  X  UI[2J  +  (GAC*XHAT(8] ) 1 
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“<: ■ :=c. 

f  C''(  ;  s  •  ,  1  <  =  a  , 

«xi:, 

init  tne  state  erro-  cover, gnce  matr-x 

f  or-C  1  :  D<»N:  **D  I 

“Kl  1  +  (D-1  )■^N*1)]  .  SIGXHto];. 

/  init.  tne  noise  6  measurement  error  matrices  */ 

RK[1)  •  SIQR[1):. 

RK(4]  .  SIGRC2}:. 


/*  init.  formal  systems  Nlr  •/ 
ifdKAU  «•  3)  < 

/■  init  stO.  oev.  for  FS  NlF  •/ 

for(nsi*1  :nsi<»3:-r*nsi  )  { 

TOBSSOfnsi]  •  Sqrt(SJG5(ns1]): 
GOBSSDInsi)  •  Sqrt(SIGRS(nsi  ] )  .• 


/•  Init.  tne  NLF  nodes  •/ 

NOES  «  1; 

f  Or(  JO»  1  ;  J  j  ) 

NOES  «  NDES'NPTSt jj; ; 

ISTPt 1 J  .  0: 

II  «  a, 

«JJ  •  2: 

KK  X  1, 

fOr(l»1;  )  ( 

for(j«n  .  ) 

ISTP(j]  .  ISTP[j-n*l]  *  KK.. 
II  •  J  J  *  1 
JJ  ••  2: 

KK  •.  NPTS(i):. 


/•  Init  P  to  uniform  density  •/ 
PNLF  «  1/NOES,' 

> 


/•  Kaltime  •/ 

Routines 

To  ooserve  tne  Pointers 


Be  sure 


ka1time( ) 

< 

extern  douOle  SPHI(i44], 
extern  double  0UM2ii44], 
extern  int  N,. 


XHAT(12].  S[27).  UII3}.  PK{144J.  DOf  14. 
SlG0,t44j,  DUM1(144].  DTK.  OLAM.;  DELT, 


MC;. 


int  RO;. 


double  »PSPHI.  •PXHAJ.  *P0UM1  -PB 
int  'PN,  •PRO;. 


•PUI.  P0UM2,,  •PMC.  ‘POK,.  •POO.. 


PSPHI  «  &SPH1 
PXHAT  •  aXHAT;. 
POUMI  •  aOUMl;. 
PN  •  &N; 

PRO  •  SRO; 

PB  ■  AB: 

PUI  •  aU!;. 
P0UM3  •  aOUM2;. 
PMC  •  BMC: 

PPK  •  aPK;. 

POO  •  aoo, 


RO  «  1: 


If (DTK  !•  DELT)  { 
DTZ  *  DELT 
sysmatC ) ; 


dmult (PSPHI.  PXHAT.  POUMI.  PN.  PN  PN  PN  PN  PRO). 
amult(PB.,  PUI.  P0UM2.  PN.  PMC.  Pfl:  PnI.  PMC.  ^RO^  ’’ 


I 
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' "aevr 
' roexc 


•  (  n-c 


/'  Ddiag 

/•  This  IS  another  one  of  those  trouoiesotne  3'  routines 
It  zeros  oa’-t  of  a  matrix 

•/ 

ddiag(a.  const,  nra.  n) 

double  ‘a,  ‘const:' 
int  ‘nra,  -n; 

( 

int  index,  irow,  icol,  i 
index  •  0;. 

for ( icol • 1 : icol <•( • ( n) ) ; icol+r )  < 

f  or  (  1  row*  1  ;  i  row<»(  ‘(n) ) ;.  irow*»  I 
•  I  a-r  I  inoex-^  1  row )  )  «  C; 
index  •  index  ‘(nra);. 


1  ndex  •  1 

for(  i«i :  i<«( ‘(n) ( 

•(a* (index))  •  const:' 
index  =  index  ‘inra):' 


/•  Oinvp  • ' 

/•  This  IS  ANOTHER  'C-  routine 

•  It  calculates  tne  inverse  of  a  mat-ix  ano  stores  it  i~ 

•  that  matrix 
•f 

dinvo(ar,  ) i ,  j j ,  lov) 

double  ‘ar.  a.  b.  ‘lov: 
int  •  1  1  .  •  j  j 

{ 

Int  1 n.  m.  j  ,  k.  1  ;■ 

for(  1  aO:'  i<«(  •(  1  1  ) ) ;  !-»*  ) 

*  (  1  Dv  ♦  1  )  s  1 

for(n«l  .n<*(  •(  1  1  ) )  in*"^)  ( 

tf(  (n-(  •(  1  1  )  )  )<o)goto  2.' 

1  f  (  (  n- !  ■  (  1  1  )  )  ) »  11'. 

goto  2.. 

2  •  a  *  -  (  ar  n  )  :■ 

if(a<0)goto  3: 
if(a»»0)goto  A;, 
goto  4:. 

3:  a  »  -a: 

4  1  »  n 

m  «  n  -►  1 

for( j«m: j<»(  ■(  i  i  ) ) ; 

J  ** )  i 

b  «  •  (ar  -►  j  ) ;, 

if(b<0)goto  5:' 
lf(b««0)goto  6: 
goto  6.' 

b  »  -bi' 

'f ( (a-b)<0)goto  7: 

If ( (8-b)«»0)goto  8: 
goto  8:- 

a  •  b:- 


if ( ( )-n)<o)goto  9; 
If ( ( 1 -n)«»0)gotol 1 ; 


5 ' 
6. 

7 

8:  ; 
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•  -owa 


'-owe.  'naexa  •-oexc 


QOje  =  S.~ 

1-1-  -aex: 

f  or(  ' -owe*  ' ,  !  rowD<*(  ■(  n) ) ; -Owe**  »  (' 

‘z-\  1  rowa*  1 :  t  rowa<'(  *  (  'i  )  )  ■■  irowa»*  )  \ 

inaexa  <  irowa;. 
inaaxD  •  irowD;. 
sum  »  0;. 

for-l  1  •  1 :  i<»(  •(  m )).'»- )  < 

sum  »  sum  -  I "(a  »  tndaxa)  •  ('(D  -  inaexo))); 
indexa  •  indexa  *  “(nra);. 
indexD  •  inoexD  ♦  *(nro):. 


•(c  *  (  indexc*  1  rowa  ) )  »  sura;. 


tndexc  *  indexc 


/■  Omult  •/ 

/•  Tnis  suoroutme  multiplies  two  matrix  partitions 
■  and  stores  tne  result  in  a  tniro 


omu 1 t ( a . o , c .  nra .nrp.nrc.l.m.n) 

double  "a,  -b,  ’c:' 

int  “nra.  "nre,  "nrc.  *1,  *m,  'n;. 


double  Sum: 

int  indexa.  inoexo.  Indexc.  m.  -rowa.  ico'b: 


inaexo  *  C.' 
inoexc  »  0. 

for( icolo« 1 ; icolb<»(  •(  n ) , , >  colo** )  ( 

for ( 1 rowa* 1 : 1 rowa< • ( • ( 1 ) ) . i rowa** )  { 

indexa  ■  irowa.. 
sum  •  0 

for (  1  •  1 ;  i<*( ‘(m )  1  )  { 

sum  •  sum  ♦  ('(a  ♦  indexa)  •  (*(b  ■*  (  inoexb  »  1)))): 
indexa  •  moexa  *(nra);. 

) 

•(c  *  (indexc  irowa))  «  sum.- 


indexD  »  inoexb  *  ‘(nro)., 
moexc  •  .noexc  *(nrc): 


Osubt  •/ 

'ms  suorout'ne  SuOracts  two  matrix  partitions,  storing 
tne  -esult  m  a  tniro 


asubt(a . 0 . c . nra . nro . nrc . m . n ) 


double  *8.  *0.  •c:- 

int  “nra.  “nro.  'rrc.  'm.  ‘n; 


int  indexa.  inoexb.  indexc.  icol .  irow; 


tnoexa  •  0. 
inoexo  *  0:- 
inoexc  •  C:- 

for(  icol  •  1  ;■  iCOl  <•(  •  ( n ) ) ;  icol-r-*  )  ( 

for(  irow«  1 :  i  row<*(  "Im ) ) ;  i  row-r*  )  { 

■(e  •  ( inaexc-» ’ row ) )  •  •(*♦(  inoex8*irow) )  - 
■(D*(  inoexb  *  irow));- 

moexa  •  moexa  ♦  *(nra):. 
inoexo  ■  inoexb  •inrO); 
inoexc  •  inoexc  *  '(nrc):- 


/•  Atlogi  •/ 

/*  Subroutine  applies  actuator  command  1091c  for  a  four  nozsie 
attituoe  control  system  •/ 


at  1 094 ( ) 

( 


external  douple  T0R0{3].  ATTF0R{6].  THRNCZ[6],  IT0R0{3j: 
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•  i  *.  ■  oa€ 

Suo-outine  aoDiies  actuator  command  ioo'c  for  a  six  ncc'ie 
att’tuoe  control  system  •/  ' 

at  logs ( ) 

external  aouble  TOROO],  attfor(6’.  thrnozCS).  IT0R0131-. 
’f’’  1.  temp: 

/•  Initialize  the  thruster  commands  to  zero  •/ 
for  (  1«  1  1<«6 !•*  )  < 

THRNOZ[  1  ]  »  0  0-. 

> 

/•  Convert  torque  commands  to  integer  commands  •/ 
for  (i«i;.  i<«3:  )**)  ( 
temp  *  TORO(t]:- 
^  ITORO[i]  •  temp: 

/•  Attitude  control  thruster  logic  chart  •/ 

/•  Roll  torque  control  •/ 

if  (ITOROtn  •«  1)  { 

^  THRN02(6]  .  ATTF0R[6]:. 

If  (IT0R0(1)  ••  -1)  { 

THRNOZtS]  .  ATTFORtSJ:. 


/•  Pi  ten  torque  control  • 

(ITQR0(2]  ==  1)  { 

^  THRNOZf 1]  •  ATTFORf 1]; 

If  (IT0R0(2]  •«  -1)  { 

THRNOZf  3]  *  ATTFORf  3  ]:• 


Yaw  torque  control  •/ 

if  (ITOROO)  ••  1)  ( 

^  THRNOZf  2]  •  ATTF0R[21:- 

1*  flTOROfS]  «•  -1)  { 

^  THRNOZf 4)  •  ATTFORfA]; 

Atteon  •/ 

Attitude  control  routine  •/ 


external  OOUPle  SWTHLOfS).  ATTFORfSj.  RATEfa).  P0Sf3].  ANGERRfS 
RATERRfSj.  THRNOZfSJ,  T0R0[3];. 
external  double  MSWITch.NThR: 
int  1  ; 

*switcn?r  ' '091c  to  determine  the  reouireo  torques  •/ 

control  thruster  logic  to  determine  which 
thrusters  to  fire. 

nozzle  configuration 
,,,  *  o  SIX  nozzle  conf iguration 

(If  .  inear  attitude  control  thrusters  are  being  useo.  oo  not 
use  a.tituoe  control  logic  chart) 
if  (MSWITCH  •«  1 )  < 

for  {  1*1 :  i<»6:  !■►*) 

THRNOZf  1  ]  •0  0:- 
^  goto  1  ;■ 

Six  nozzle  attitude  control  Ionic  •/ 
if  (NTHR  ..  6)  { 
atlogSI  ) ; 
goto  1 


Four  nozzle  ettltuoe  control  logic  »/ 
at  iog4( ) 


/*  Switch  •/ 

/*  Switching  line  logic  routine 
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tiKriwimm*  •nmniw#  tooiaMT 


1 

1 

I 


2®-*:  =  =3: 

5  DD3  “SjL'.. 

ooo( 1 } ; 1-3)  =  dd:; '-3)i 1 j . 
000[i][ij  »  PH332-SIGOt  1-6]' .. 


/*  Store  all  matrices  as  column  vectors  */ 
NR  «  0 

for  (  j  «  1  :  j  <«9;.  j*»  I  < 
for  (  1  ■  1 i<»9:i  1— •)  { 

PH1(  1+NR)  «  DPh’i  1  3(j  ] 

D0[  i+NR]  •  DDg;  1  ][  j  ]  :■ 

NR  •  NR  +  9;. 


> 

/■ 

/• 


NR  •  0 

for  j<«3:.  J**)  ( 

for  (1*1;  i<«9 ;  ’ — )  { 
B( 1+NR]  •  0B( >  3[ j 1 : 

NR  >  NR  9 

} 


1 inmeas  •/ 

This  subroutine  computes  tne  i inearizeo  measurement 
for  the  system  with  mertiai  measurements.  ■■/ 


matrix 


1 inmeas ( ) 

{ 

extern  aouble  XK[9) . -i3[  27  ) 
extern  aouble  RANGE. R3 


int  1  .. 


/•  2ero  the  Imearizec  measurement  matrix  •/ 

for  (1*1;.  1  <«27 1—  , 

HB[ 1 ]  •  0.0. 


1  inea-izeo  measurement  matrix 


*  XKt2)*XK(23  ♦  XKt3)-XK[3)): 


RANGE  •  sart(XK[ 1 )*Kxri 
R3  •  RANGE»RANGE*RANG£-. 

HB(1)  •  XK(  1  )«XK(3)/H3;. 

-XKl  ll-XK(2j/R3.. 

XK(2]*XK(3)/R3; 

(XK(1)*XK(1]  -  XK(3)*XK(3))/R3. 
-(Xl<Cl)*XK(>;  -  XK(2)*XK(2])/R3; 
-XK  2  'XK(3]/R3;. 


H8(2] 

HBC3] 

HB(4] 

HBfSJ 

HB(6) 


Meas 

Something  about  comoutirg  measurement  for 
tne  system  - >  2(k)  •  n(x(K))  (inertial) 


meas( ) 

( 

extern  oouole  XK(91,  HL(3l.  RANGE:- 


RANGE 
HL[  1 J 
HL(2] 


-?K C  3] /RAlior ‘  ^  ‘ ^  ^ ^  ^  ^  ^  ^  ’ 

*XK(2J/RANGE 


I 
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rv.  Miscellaneous 
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Here  I  decided  to  put  any  other  crapola  (a  term  not  original;  first 
coined  by  my  Music  teacher)  that  didn't  fit  in  with  everything  else 
(Basically,  the  projects  in  which  I  ASSISTED). 

A.  Hough  Transform  (Troy  Urquhart) 

Basically  the  Hough  takes  any  image  and  produces  a  crescent  of  the 
outside  pixels.  I  supplied  the  original  program,  but  TROY  took  this  scanty 
thing  and  made  it  into  a  masterpiece. 

B.  Neural  Nets 

Didn't  do  much  here.  Just  assisted  in  inidal  design. 

C.  Other  Crapola  (same  term) 

Basically  other  diagrams  or  pictures. 


ROOT  - 

wx  - 

- 

wz  - 
(3)  -  { 

..rtAT(12]  -  { 

3C  - 
3AV  - 
3V  - 
3A  » 

rRX2B[9]  -  { 

RANGE  - 
•JI13]  -  { 

3TERR  - 
VT  - 
.\T  - 
IHO  - 
TTOGO  - 
TGO  - 
TGOL  - 
'ELXT  - 
IGUIDE  - 
'IDOF  - 

'*  sysmat  variables 

3PHIt9]t9]  -  { 

(9]  [3]  -  ( 
3DQt9][9)  -  { 
3IGQ(3J  -  ( 

•’HI  (81]  ■  ( 

27]  - 

JU(81]  -  ( 

?13  - 
?23  - 
?33  - 
PH113  - 
PH123  « 

PH133  « 

?H22'-i  - 
PH233  - 
?H333  - 
DT  - 
3LAM  - 
1'EMP  - 

m  - 


Attcon  Variables  */ 


3WTHLD(3]  -  { 
ATTPOR(6]  -  ( 
3ATE(3]  -  { 
post  3]  -  { 
^GERR(3]  -  f 
RATERR(3]  -  ( 
THRNOZ(6]  -  { 
TORQ[3l  -  { 
WTICH  - 

.  iR  - 


16-52 


Conclusion 
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And  so,  in  summary,  I  would  like  to  say... 

NOlHlNG. 

Well,  sort  of: 


Thanks  to  you,  the  reader,  for  suffering 
through  this  comedy  of  errors  -  this  mockery  of 
English  -  my  report.  Don't  wo^,  I  won't  write 
many  more  like  this,  and  even  if  I  do,  you  will 
not  read  them. 


Lots  of  things  were  learned  this  year.  I  have 
neitlier  the  space,  nor  the  patience  to  relate  them 
all,  so  just  trust  me.  I  mean,  come  on!  Does 
anyone  actually  believe  I  knew  all  this  STUFF 
when  I  arrived? 


Finally,  all  my  projects  were  successful  this 
year,  bringing  my  life  total  to  3  and  100034  - 
just  kidding,  it's  worse... 


16-54 


MSIS 


Multi-Sensor 
Integration  System 


Christine  D.  Riendeau 
AFATL  /  AGS 
Mr.  John  Walker,  mentor 
August  15,  1990 


I.  Acknowledgements 

I  would  like  to  extend  my  deepest  appreciation  to  the  following  people  for  their 
support,  guidance,  and  especially  their  knowledge. 


Mr.  Johnny  Walker,  mentor 
Mr.  John  Wolverton 
Major  Paul  Vergez 
Mr.  Al  DiSalvio 
Mr.  Darryl  Huddleston 
Mr.  James  Norton 
Mr.  Dave  Rogers 
2Lt.  Eric  D’Anna 
Mr.  Reid  Harrison 


Finally,  I  would  like  to  thank  the  two  sponsors  of  our  program,  Mr.  Don  Harrison 
and  Dr.  Klausutis,  for  the  wonderful  opportunity  to  learn  and  work  at  the  Eglin 
Armament  Laboratory. 


17-2 


II.  Introduction 


This  paper  is  an  introduction  to  the  Multi-Sensor  Integration  System.  The  paper  is 
divided  into  several  parts.  The  first  part  is  taken  from  basic  research  done  at  the 
beginning  of  the  summer;  first  an  overview  of  the  MSIS  system  and  next  a  closer  look 
at  the  millimeter  wave  radar  subsystem.  The  second  part  of  the  paper  describes  actual 
experiments  and  tests  done  with  the  radar  subsystem  over  the  summer.  Finally,  the 
paper  explains  the  future  goals  of  the  MSIS  system  and  summarizes  its  place  in  the 
Hglin  laboratory. 
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m.  Description  of  Research 


The  MSIS  System 

The  Multi-Sensor  Integration  System  (MSIS)  is  a  project  designed  to  permit 
simultaneous  collection  of  data  from  several  types  of  sensors.  The  project  will  integrate 
three  separate  subsystems  to  permit  in-house  capability  for  the  collection  and  analysis 
of  target  and  background  data.  The  three  subsystems  are  made  of  1)  infrared  (IR)  and 
TV  cameras,  2)  an  X-band  search  and  track  radar,  and  3)  a  millimeter  wave  (MMW) 
radar.  Because  this  combination  of  sensors  permits  tracking  both  air  and  ground  targets, 
the  tower  facility  on  the  roof  of  Building  13  was  selected  for  the  site  of  the  MSIS  system. 
Some  equipment  for  the  MSIS  system  (i.e.,  the  MMW  radar  and  the  IR  cameras)  is  still 
being  procured.  The  infrared  and  TV  cameras  (EO/IR)  provide  additional  background 
information  which  will  be  useful  in  distinguishing  live  targets  from  dead  ones,  and  which 
will  be  extremely  effective  when  developing  software  for  the  dual  mode  sensors  (see 
CONCLUSIONS).  The  EO  cameras  provide  both  vi.  e-angle  and  boresight  video 
capabilities.  x411  cameras  are  mounted  upon  the  track  mount  (still  in  procurement)  that 
will  also  be  used  to  point  the  MSIS  sensors  under  computer  control. 

The  X-band  search  and  track  radar  is  more  familiarly  knovm  as  the  DIVAD.  It  is 
designed  to  track  airborne  targets  flying  at  medium  range  from  the  tower  (about  10 
km);  because  the  physical  antenna  limitations  restrict  the  tracking  antenna  to  positive 
elevation  angles,  tracking  ground  targets  on  the  DIVAD  will  not  be  possible.  The 
X-band  radar  has  internal  in-phase  and  quadrature  analog  radar  video  signal  lines; 
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because  the  DIVAD  is  a  Doppler  radar  system,  it  can  determine  target  velocity  and 
distinguish  between  helicopters  and  fixed-wing  targets. 

Finally,  the  MSIS  system  includes  a  millimeter  wave  radar  that  operates  at  a 
frequency  of  94  GHz.  It  is  called  the  MMW  radar  because  its  wavelength  is  3  mil¬ 
limeters.  The  purpose  of  this  radar  is  to  locate  ground  targets,  both  stationary  and 
moving,  and  there  are  several  different  types  of  radar  sensors  that  could  be  used  and 
often  interchanged  (figure  B). 

The  Millimeter  Wave  Radar 

'fhe  millimeter  wave  radar  that  has  been  selected  for  use  in  the  MSIS  system  is 
currently  being  upgraded.  An  additional  new  single-channel  receiver  is  designed  to  be 
capable  of  switching  from  FMCW  to  pulse  mode  of  operation,  and  both  the  transmitter 
and  receiver  have  separate  antennas.  This  is  called  a  bistatic  configuration.  It  is  formally 
known  as  the  1-94  radar,  as  it  operates  at  a  frequency  of  94  GHz.  The  1-94,  to  have  target 
tracking  capability,  must  be  attached  to  the  track  mount  with  the  EO/IR  cameras. 
Originally,  the  1-94  was  designed  as  a  monopulse  radar  with  eight  radar  video  signal 
outputs.  In  a  monopulse  radar  the  transmitter  and  receiver  share  a  single  aperture 
(monostatic),  which  is  made  of  four  individual  antennae  that  allow  the  radar  to  track 
moving  targets.  A  single  aperture  for  transmitting  and  receiving  is  defined  as  monos¬ 
tatic.  The  first  four  video  signal  outputs  (channels)  are  electronic  reconstructions  of 
the  beams  from  the  antennae.  The  receiver  has  four  more  channels  rather  than  one, 
which  are  labeled  the  sum,  the  azimuth  difference,  the  elevation  difference,  and  the 
azimuth-elevation  difference  channels.  These  channels  tell  the  distance  and  direction 
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to  the  target.  The  transmitter  used  in  both  radars  is  the  same,  and  the  monopulse  and 
1-94  radars  can  both  be  used  in  the  MSIS  system.  Because  the  1-94  and  monopulse 
radars  are  not  yet  available  to  work  with  in  the  laboratory,  the  hands-on  experience  was 
gained  through  using  the  simplest  millimeter  wave  radar.  It  is  called  the  beacon,  but  is 
actually  more  than  its  name  implies.  The  beacon  is  a  one  channel,  one  antenna,  94  GHz 
radar  that  can  generate  its  own  timing  or  use  timing  supplied  from  a  remote  source. 
Because  the  beacon  had  not  been  used  for  a  very  long  time,  the  first  task  was  to 
characterize  it  and  make  sure  all  parts  were  working. 
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TV.  nescrintion  of  Projects 


Testing  the  Radar  IF  System 

A  radar’s  IF  system  begins  once  the  input  from  the  antenna  is  mixed  with  the  output 
of  the  local  oscillator  (figure  Cl).  The  resulting  frequency  is  called  the  Intermediate 
Frequency  (IF).  The  IF  output  goes  through  several  devices  before  being  turned  into 
tlie  video  output  from  which  targets  are  detected  (figure  C2).  The  radar’s  IF  system  is 
designed  to  cut  out  a  certain  block  of  frequencies  by  using  high-pass  and  low-pass  filters. 
The  beacon  also  provides  a  test  point  where  the  IF  output  can  be  tested  before  it  is 
converted  to  video  signal. 

To  characterize  the  beacon,  each  piece  or  group  of  equipment  in  the  IF  system  has 
to  be  tested,  both  to  see  whether  it  is  working  properly  and  to  pinpoint  exact  charac¬ 
teristics.  The  test  set-up  (figure  D)  provides  RF  power  from  the  sweep  generator, 
through  attenuators,  to  the  device  under  test.  A  detector  takes  the  output  from  the 
device  and  converts  it  to  video  signal  and  transfers  it  to  the  scalar  analyzer,  which  plots 
the  output  on  the  screen.  Should  the  device  under  testing  be  an  attenuator,  the  results 
on  the  scalar  analyzer  should  show  a  decrease  in  power  from  the  sweep  generator. 
When  testing  an  amplifier,  results  should  show  an  increase  in  power,  and  the  increase 
should  be  linear.  During  the  test  of  the  amplifier  in  the  beacon’s  IF  system,  the  results 
were  found  to  show  an  increase  of  35  dB  when  the  power  from  -77  to  -31  dBm  was 
applied  to  the  input  of  the  amplifier  (figure  E).  This  plot  is  called  the  transfer  function 
of  the  amplifier.  The  graph  of  this  data  shows  that  the  amplifier  gain  is  linear  over  an 
input  range  of  -77  to  -31  dBm. 
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Timing  Signals 

One  major  step  in  developing  the  MSIS  system  is  to  develop  software  that  permitsf 
timing  control  of  the  1-94  radar  through  the  LeCroy  boxes  and  the  Compaq  computer. 
Because  the  timing  for  the  beacon  could  be  supplied  externally  as  well  as  internally,  it 
gave  a  head  start  when  developing  the  computer  programs  that  would  work  with  a 
similar  radar.  Timing  for  the  1-94  will  differ  from  timing  for  the  beacon  because  the 
1-94  has  two  antennae,  one  for  the  transmitter  and  another  for  the  receiver.  This 
eliminates  the  need  for  several  steps  in  timing,  such  as  the  receiver  protection  switch. 

Tracking  Targets 

When  tracking  targets  with  the  beacon,  the  radar  has  to  be  guided  by  hand.  It  is 
mounted  on  a  tripod  with  wheels  that  change  azimuth  and  elevation.  The  1-94  radar’s 
tracking  will  be  controlled  through  the  LeCroys  in  conjunction  with  the  track  mount. 
Defining  targets  that  are  being  detected  was  often  a  guess,  because  targets  of  oppor¬ 
tunity  were  used. 

The  need  for  greater  beamwidth  in  tracking  targets  was  felt,  and  after  the  IF  system 
had  been  characterized  and  found  without  great  fault,  the  next  step  was  to  change  the 
antenna  to  give  a  greater  beamwidth.  The  original  antenna  had  a  twelve-inch  aperture, 
which  gave  a  beamwidth  of  about  one-half  a  degree.  This  was  calculated  using  a 
computer  program  created  by  David  Rogers  to  calculate  beamwidth  from  a  known 
wavelength  and  circular  aperture. 

The  antenna  was  removed  and  replaced  with  an  antenna  whose  aperture  measured 
6  inches,  and  the  beamwidth  was  doubled  to  approximately  one  degree  (figure  F). 
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Finally,  the  area  covered  by  the  beam  at  a  distance  of  400  meters  was  calculated 
for  each  antenna  using  standard  trigometric  functions  (figure  G).  These  functions 
determine  the  radius  of  the  circular  area  covered  by  the  beam,  but  this  area  is  circular 
only  if  the  beam  is  perpendicular  to  the  target  plane.  Supposing  that  the  target  is  a  flat 
plane,  at  four  hundred  feet  a  beamwidth  of  .5  degrees  could  cover  an  area  with  a 
diameter  of  1.21  meters,  while  a  beamwidth  of  1  degree  would  cover  an  area  with  a 
diameter  of  2.24  meters. 
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V.  Conclusions 


Future  Goals 

One  goal  for  the  MSIS  system  that  will  be  realized  in  the  near  future  is  control  of 
the  system  through  the  LeCroy  boxes  and  the  Compaq  computer.  Because  of  the 
absence  of  the  1-94  radar,  it  was  impossible  to  complete  the  set-up  at  this  time,  but  using 
the  beacon  allowed  a  start  on  software  development.  Working  with  the  beacon  also 
helped  to  eliminate  some  interface  problens  between  the  Compaq,  LeCroys,  and  the 
millimeter  wave  radar. 

Another  goal,  this  one  long-term,  of  the  MSIS  system  developers  is  to  develop  the 
algorithms  that  will  be  used  to  combine  information  from  the  different  types  of  sensors. 
Although  now  each  sensor  has  to  be  operated  independently  from  the  others,  the  plan 
is  that  in  the  future  these  algorithms  will  enhance  the  development  and  operation  of 
dual  mode  sensors. 

Summary 

The  Multi-Sensor  Integration  System  is  made  of  three  separate  modes  of  sensors- 
-the  infrared  and  TV  cameras,  the  DIVAD  track  and  search  radar  and  the  94  GHz 
millimeter  wave  radar  called  the  1-94.  The  1-94  radar  is  in  procurement;  in  its  absence 
a  single-channel  radar  called  the  beacon  was  calibrated  and  set  up  to  help  eliminate 
interface  problems  and  to  allow  a  start  on  software  development. 

The  Hrst  objective  this  summer  was  to  activate  the  beacon,  then  to  calibrate  and 
characterize  the  radar.  Once  the  beacon  was  deemed  operational,  several  steps  were 
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taken  to  improve  target  tracking  sensitivity.  The  first  was  a  testing  of  the  IF  system,  the 
parts  of  a  radar  after  input  from  antenna  has  been  combined  with  the  local  oscillator 
output  and  before  the  detector.  Graphs  and  plots  show  that  all  parts  of  the  IF  system, 
as  well  as  the  whole  system  itself,  were  working  as  they  were  supposed  to.  The  second 
step  involved  changing  antennas  to  give  a  larger  beamwidth.  The  present  antenna  had 
a  twelve-inch  antenna  and  a  beamwidth  of  one-half  a  degree.  The  antenna  size  was 
halved,  and  the  beamwidth  was  doubled. 

Finally,  the  beacon  was  controlled  through  its  remote  operation  mode  by  the 
LeCroy  boxes  and  the  Compaq  computer.  Although  it  is  not  exactly  like  the  1-94  radar 
that  is  being  developed,  interfacing  the  beacon  with  the  LeCroy  and  Compaq 
eliminated  some  basic  problems.  Software  to  collect  and  combine  data  from  all 
different  types  of  sensors  is  now  being  developed. 

Future  als  of  this  system  are  control  of  the  millimeter  wave  radar  through  the 
Compaq  and  LeCroys  and  the  development  of  algorithms  that  will  combine  the 
information  from  two  different  types  of  sensors  to  obtain  a  clearer  picture  of  the  target. 
These  algorithms  will  be  used  with  future  dual  mode  sensors. 
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Figure  A:  Multi-Sensor  Integration  System 
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Figure  B:  Different  Configurations  of  the  MMW  RADAR 
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Transmitter 


Diagram  of  Beacon 


Figure  C2:  Diagram  of  IF  System 
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Figure  D:  Device  Testing  Set-up 


CC 

H  U 

<  H 

^  CO 

Z  « 
u  Q 
E-  o 
H 

< 


0^ 

p^ 

H  m 

<  H 

n 

Z  ® 
w  Q 
H  o 
H  ^ 

< 


0^ 

m 

N 

a:  J 

<5 

nJ  z 
<  < 
u 

CO 


Q 

h* 

m 


Figure  F:  Formula  for  Converting  Aperture  to  Beamwidth 


Q=  (51)  Frequency 
Diameter 


Figure  G:  Formula  for  Cross  Section  of  Target 


Tan  (1/2  Beamwidth)  =  Cross  Section  2 
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INTRCDUCTION 


This  was  my  second  summer  as  a  high  school  apprentice  in 
the  Energetic  Material  Branch  of  the  Air  Force  Armament 
Laboratory  (AFATL)  at  Eglin  Air  Force  Base.  My  mentor  was  Capt. 
Schomber,  an  officer  in  the  U.S.  Air  Force  and  a  physical 
chemist.  He  works  in  the  High  Explosives  Research  and  Development 
Complex  (HERD).  One  of  the  HERE/s  goals  is  to  produce  an 
insensitive  high  ejqplosive.  This  means  they  want  an  explosive  to 
react  when  it  is  detonated,  and  only  when  it  is  detonated.  They 
do  not  want  a  bomb  detonating  if  an  adjacent  bomb  accidentally 
detonates,  if  there  is  a  fire  in  the  storage  area,  or  if  it  is 
accidentally  dropped.  They  want  it  to  detonate  only  under  specific 
prescribed  conditions.  I  was  involved  in  the  dynamic  testing  of 
the  explosives.  Last  year  I  helped  to  set  up  a  program  which 
allowed  a  computer  workstation  and  electronic  digitizer  to 
communicate.  This  year  my  assignment  was  to  enhance  this  program 
and  expand  its  capabilities. 


DESCRIPTIOJ  OF  THE  DYNaMICS  LABORATORY 

This  summer  I  worked  in  the  Dynamic  Laboratory.  Small 
scale  dynamic  tests  of  explosives  are  conducted  there.  The 
purpose  of  many  of  the  tests  is  to  find  the  detonation  velocity 
of  the  explosive.  The  equation  for  velocity  is  distance  divided 
by  time.  In  order  to  find  the  distance,  piezo  electric  pins  are 

set  up  so  they  touch  the  explosive  and  are  placed  at  a 
constant  distance  apart  from  each  other.  This  distance  is  measured 
to  the  nearest  .1mm  and,  hence,  one  part  of  the  formula  is 

fulfilled.  To  measure  the  time  it  takes  the  detonation  shockwave 
to  reach  each  pin,  two  Tektronix  RTD  710A  Digitizers  are  used. 

The  piezo  electric  pins  are  stimulated  by  the  detonation  shockwave 
and  transmit  a  signal  to  the  digitizers.  The  digitizers  are 

triggered  by  the  piezo  electric  pins  and  record  data  at  a  rate 

of  5  nanoseconds  per  point.  The  digitizers  then  display  a 
picture  of  the  resulting  waveform  on  a  small  screen  and  generate 
a  digital  readout  of  the  data.  The  tests  that  use  this 

procedure  are: 

CRITICAL  DIAMETER  CC»E  TEST 
CC*FINED  DENT/RATE  lEST 
UNCONFINED  DENT/RATE  TEST 

In  the  past,  the  process  of  collecting  the  data  was  very 
time  consuming  in  that  each  and  every  point  had  to  be  written 
down  by  hand.  Last  summer  the  digitizers  were  Interfaced  with 
the  Tektronix  Workstation;  thus  allowing  the  two  instruments  to 
communicate.  The  digitizers  could  now  be  programmed  by  commands 
given  through  the  keyboard  and  could  send  Information  about  the 
recorded  waveform  to  the  computer  monitor.  Data  reduction  is  still 
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time  consuming  in  tiiat  this  information  must  be  transferred  to 
another  computer  for  analysis  and  plots.  Enhancing  last  years 
program  would  allow  the  analysis  and  plot  to  be  accomplished  on  the 
Tektronix  computer,  making  the  test  quicker  and  more  productive. 


I 

I 

I 
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DESCRIPTiai  OF  RESEAFCH 


My  csbjective  for  the  stunmer  was  to  expand  the  capabilities 

of  a  program  called  "gpibtst"  and  make  it  eaisier  for  a  person 

unfamiliar  with  the  RTD  710A  Digitizers  and  Tektronix  Workstation 
to  use.  The  program,  developed  last  summer,  is  a  C  language 

program  that  enables  the  user  to  send  set  and  query  commands  to 

the  digitizers  and  perform  a  poll  routine  upon  the  instruments. 
When  the  program  is  implemented,  a  prompt  is  displayed  informing 

the  user  that  they  are  running  this  particular  program. 

Furthermore,  because  there  are  two  digitizers  in  the  Dynamic  Lab, 
the  program  allows  the  user  to  discriminate  between  the  two 
instruments  by  typing  "s"  or  "S'*  before  each  command  to  talk  to 
scopel,  and  by  typing  any  other  letter  in  front  of  each  command 
to  talk  to  scope2.  This  routine  is  essential  to  the  program,  but 

a  user  unfamiliar  with  the  program  would  not  know  how  to  use 
it.  The  prompt  correctly  informs  the  user  that  he  has  entered  a 

program  but  does  not  tell  him  what  the  program  is  Ce5)able  of 
doing.  I  added  some  information  statements  so  as  the  program  is 

entered,  a  message  stating  "You  are  now  able  to  communicate  with 
the  digitizers.  Please  see  the  RTD  manual  for  a  list  of 

commands."  is  displayed.  I  did  this  using  a  C  language  "  for*' 
loop  and  "printf”  statement.  I  defined  an  integer  "t"  and  set  it 

equal  to  0.  I  than  said  "t"  could  not  be  equal  to  one  and 

Incremented  "t"  by  one.  This  made  the  program  display  the 
message  in  the  printf  statement  once  (when  "t"  is  equal  to  zero) 

and  than  stc^  displaying  the  message.  It  steps  because  "t" 
increases  by  one  and  since  I  have  Instructed  the  ccxnputer  that 
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''t”  cannot  ever  equal  one,  the  loqa  is  terminated.  This  prevents 
the  message  from  being  displayed  continuously  across  the  screen. 

The  user  now  understands  what  he  can  do,  but  is  still  unaware  of 
how  to  discrimirate  between  scope!  and  scope2.  Using  the  same 
loop  and  adding  additional  printf  statements,  the  monitor  displays 
statements  instructing  the  user  how  to  talk  to  each  scope.  This 
is  how  the  entire  locp  appears  in  the  program: 

for(t=0;t!=l;++t) { 

printf  ("You  are  now  able  to  communicate  with  the\n"); 
printf  ("Please  see  RTD  manual  for  a  list  of  (3PIB\n"); 
printf  ("coinvands.Xn") ; 

printfC’Typ,  s  or  S  in  front  of  each  command  to  talk\n")/ 
printf  ("to  scopel,  and  any  other  letter  to  talk  to\n"); 
printf ("scope2 . \n") : 

There  are  instances  when  the  computer  is  unable 
to  communicate  with  the  digitizer,  or  the  ccirputer  cannot  read  the 
scopel  or  scope2  file.  This  can  be  the  result  of  several 
things;  1)  The  scopes  might  be  turned  off;  2) A  GPIB  cable  might  be 
lose;  or  3)  The  user  forgets  to  type  a  letter  before  a  command  to 

distinguish  which  scope  he  is  talking  to.  When  this  happens  the 

program  displays  "Response  =  -1."  With  certain  C  compilers  the  read 
subroutine  sends  a  code  of  "  -1"  when  it  is  unable  to  read  a 
file.  An  Inexperienced  user  would  not  be  aware  of  this  code. 

Hence,  I  converted  the  read  statement  into  an  "if"  statement  to 

tell  the  user  what  was  happening.  I  changed  the  program  so  that 
if  the  read  was  equal  to  "  -1",  the  computer  will  print  a 
message  saying  "Cannot  read  file.  Please  check  to  see  if  scopes 
are  on  or  if  all  (3PIB  cables  are  secured."  This  is  how  it 
appears  in  the  program: 

if (bytes  =  read (scopel, r,BOFI£N)  =  -1)  { 
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print f ("Cannot  read  file.  Please  check  to  see  if\n"); 
print f ("scopes  are  on,  or  if  all  GPIB  cablesNn"); 

printf ("are  secured. \n") ; 

Although  this  program  reduces  the  amount  of  time  it  takes 
to  setup  the  tests,  the  scientists  in  the  lab  still  have  to 

transfer  the  information  from  the  test  to  plot  and  analyze  it 

on  another  computer.  This  program  also  does  not  make  a  permanent 

record  of  the  test  (for  example,  it  does  not  save  the  information 

to  a  disk  file,  or  does  not  make  a  hard  copy) .  Once  the 

program  is  exited,  all  the  information  is  lost.  In  order  to 

correct  this,  I  had  the  program  create  a  disk  file.  I  did  this 

by  using  the  "creat"  subroutine.  I  named  the  file  to  be  opened 

"store".  I  set  "store"  equal  to  "  creat"  and  set  up  the  path  for 

"store"  so  it  would  create  the  file  in  my  home  director^’.  I  set 

the  mode  for  the  file  to  read/ write  so  a  user  can  read  the 

file  and  write  corrections,  etc.,  to  the  file.  The  subroutine 

appears  in  the  program  as  follows: 

store  =creat("/usr/schmidt /store",  OJRDWR,  1); 

In  the  original  gpibtst  program  the  computer  would  write  a 

GPIB  command  to  the  scopes  and  than  read  the  scopes  response, 
which  was  put  into  character  array  "r"  and  set  to  length 

"BUFLElT'.  I  changed  the  program  so  that  if  the  user  typed  in 

the  letter  "y"  that  it  would  write  the  character  array  "r"  to 
the  store  file.  This  is  what  it  looks  like: 

else  if  (s[0]  =='y')  { 
write (store, r,BUFLEN) ; 

} 

Hence,  all  the  information  a  user  has  asked  for  concerning 
the  test  is  stored  into  a  disk  file  "store".  Thus,  there  is  a 
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permanent  record  of  the  test  which  will  stay  on  file  even  when 

the  program  is  exited.  In  the  original  gpibtst  program,  if-else 

statements  were  used  to  distinguish  between  communications  to 

scopel  and  scope2.  If  the  first  letter  typed  was  a  "s"  or  "S" 

the  program  wrote  to  scopel,  else  (meaning  any  other  letter)  the 

program  wrote  to*  scope2.  Because  I  had  to  find  some  means  of 

writing  to  the  store  file,  however,  I  changed  the  program  so 

there  is  an  if  statement  and  three  else-if  statements.  I  kept 

the  statement  with  the  "s"  or  "S"  in  it,  laut  to  write  to 

scope2  the  first  letter  of  a  command  must  be  ''t'*.  In  order  for 

the  information  asked  for  to  be  sent  to  the  store  file  the 

letter  "y"  must  be  typed,  and  to  exit  the  program  the  letter 

"X"  must  be  typed.  This  is  how  it  appears  in  the  program: 

if(s(0]  ='s'  II  d[0]  ='S'){ 

write (scopel,  &(s(l]),  strlen(s)  -1); 

if  (bytes  =  read  (scopel,  r,BUFI£N)  ~-l)  { 

print f  ("Cannot  read  file.  Please  check  to  see  if\n'') ; 

printf ("scopes  are  on,  or  if  all  GPIB  cables  are  secured. \n”) / 

} 

r [bytes]  =  '*'/ 

printf ("Response  =  %d  %s\n", bytes, r) ; 

} 

else  if (s[0]  =='t') { 

write (scope2,  &(s[l]),  strlen(s)  -1); 

if (bytes  =  read(scope2,r,BUFLEN)  — -1) { 

printf ("Cannot  read  file.  Please  check  to  see  if\n"); 

printf C scopes  are  on,  or  if  all  GPIB  cables  are  secured. \n") ; 

} 

r [bytes]  = 

printf  ("Response  =  %d  %s\n",bytes,r)  / 

) 

else  if  (s[0]  =='y')  ( 
write (store, r, BUFLEN) / 

) 

else  if  (s[0]  =  'x')  [ 
exit (0) ; 

} 

} 

} 

I  added  these  instructions  to  the  statement  which  appears  in 
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the  beginning  of  the  program  when  the  program  is  first 
initialized. 

After  saving  the  information  onto  a  disk  file,  a  Utek  command 

can  be  used  to  make  a  hard  copy  of  the  test.  Therefore,  if  the 

file  should  be  accidentally  erased,  there  is  always  a  back-up 
record  of  the  test.  The  command  is  called  "cpio”.  This  command 
copies  files  to  input  and  output.  To  copy  the  information  of  a 

disk  file  to  a  diskette  the  command  ”cpio  -o>/dev/rdf"  is  typed 
in.  Than  the  user  types  in  the  name  of  the  disk  file.  To  find 

out  what  disk  files  are  found  on  the  diskette  "cpio  -i</dev/rdf 

is  typed  in.  The  monitor  responds  with  a  list  of  files  and  the 
number  of  blocks  of  memory  each  file  has  on  that  disk.  Thus  a 

disk  copy  of  the  entire  test  now  exists. 

After  the  storage  file  was  created,  a  means  of  plotting 

points  from  that  file  was  found.  In  order  to  get  these  points 
the  GPIB  command  PLOT  must  be  sent  to  a  scope.  The  digitizer 

sends  a  buffer  of  approximately  1200  points  to  the  screen.  By 
typing  "y"  these  points  are  than  sent  to  the  storage  file  so 
there  is  a  disk  record  of  the  graph  of  the  waveform.  We 

discovered,  however,  that  within  the  buffer  were  control  characters 
which  could  not  be  read  by  the  program.  A  time  consuming  method 
of  recording  these  points  and  transferring  them  into  another  data 

file  has  to  be  used.  The  coordinates  are  typed  in  columns  of 

two(x  and  y  columns)  and  then  can  be  read  by  the  program.  We 

also  discovered  the  Tektronix  computer  uses  Plot  10  STI  (Standard 
Tektronix  Interface)  for  its  graphic  applications.  STI  is  a  set  of 
over  500  subroutines  which  are  provided  in  both  the  FORTRAN  and 

C  languages.  In  this  case,  the  FORTRAN  language  was  used.  The 
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program  developed  is  called  "wave".  "Wave"  consists  of  four  major 
subroutines.  They  are  tinit,  array/  axes,  and  graph.  The  first 
subroutine  called  is  tinit  which  initializes  the  terminal 
parameters.  The  next  subroutine  is  array.  Array  opens  a  data  file 
and  loads  the  data  array  for  x  and  y  values.  Because  all  tests 

are  different  and  give  different  coordinates,  the  program 
calculates  the  maximum  value  of  both  x  and  y  so  the  plot  can 

be  drawn  to  scale  in  accordance  with  a  particular  test.  The  next 
subroutine,  axes,  draws  the  vertical  and  horizontal  axes.  It  also 
puts  the  tic  marks  on  the  axes.  It  draws  the  axes  by  moving  to 
a  certain  point  and  than  drawing  to  each  successive  point.  This 

is  also  the  case  in  the  subroutine  graph,  which  takes  the  data 
from  the  arrays  and  plots  the  waveform.  Each  point  has  400  added 
to  it  because  when  drawing  the  axes,  they  were  drawn  400  points 

above  the  window  border  and  400  points  to  the  right  of  the 
window  border.  The  points  are  plotted  in  accordance  with  the 
dimensions  of  the  window,  not  the  axes.  Since  the  axes  has  been 
shifted  400  spaces,  the  coordinates  also  have  to  be  shifted. 
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RESULTS 


The  message  explaining  to  the  user  what  he  can  do  by 

entering  the  program  is  displayed  once  as  tlie  program  is  first 
entered.  The  program  also  displays  the  message  of  not  being  able 
to  read  a  file  every  time  a  "Response  =  -1."  appears  on  the 
screen.  The  program  successfully  opened  a  storage  file  and  set  it 
up  in  my  directory.  I  did,  however,  have  to  set  the  mode  on 
the  file  again  in  order  for  me  to  be  able  to  read  and  write  to 

it.  This  was  done  by  using  the  tjtek  command,  "chmod".  This  file 
was  sent  to  a  diskette  using  the  "cpio"  command,  thus  making  a 
hard  copy  of  the  test.  The  FORTRAN  program  "wave"  did  read  the 
data  points  found  in  a  disk  file  onto  an  array  and  plotted  the 
points  on  an  x-y  coordinate  system.  By  hitting  a  button  found  on 
the  computer  called  "print  screen",  the  graph  was  sent  to  the 

laser  printer  and  a  hard  copy  of  the  waveform  was  made.  Hence, 
all  my  objectives  for  the  summer  have  been  fulfilled. 

CCMXUSIO} 

I  have  learned  over  the  past  two  summers  that  not  only 
computer  programming,  but  all  scientific  research  is  accomplished 
through  trial  and  error.  I  tried  to  make  certain  additions  to 
the  program  a  myriad  of  times  only  to  find  that  these  ideas 

were  wrong.  It  took  many  tries  to  find  out  exactly  what  the 

computer  would  accept,  but  all  I  could  do  was  keep  trying  until 

I  found  the  right  combination.  To  be  successful  in  any  field,  I 

have  discovered,  one  has  to  expect  to  fail  before  they  can 
succeed. 
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This  program  performs  no  I/O  error  checks. 
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cfg.gc_pgrp  =  getpgrpC0);  /*  enable  the  signal 

up  */ 

ioctKscopel,  GIOCSCONF,  &cfg);  /♦  set  GPIB  configure 
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if (bytes  =  readCscopel,  r,  BUFLEN)==-1){ 
printfC "Cannot  read  file. Please  check  to  see  if\n 
printf ("scopes  are  on, or  if  all  GPIB  cables\n"); 
printfC'are  secured. \n") ; 


r[bytes]  = 

printf ("Response  =  %d  %s\n",  bytes, r); 
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This  subroutine  opens  the  data  file  and  loads  the  data  into  an 
array  for  x  and  an  array  for  y  values.  For  different  length  data 
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k=l 

do  30  3=680,3200,280 
call  llmove(0,j-20) 


common  xarrayC164),  yarray(164),  codel,  xint,  yint 
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do  30  j=680, 3200, 280 
call  nmoveC0, j“20) 
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y=yarrayCi )+400 
call  ninin(5) 
call  1 IdrawCx.y) 


write(iylab,;e;09)  ylab 
200  formatCi4) 

call  ntext(4,iy1ab) 
call  llmove(40e,j) 
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call  lllninCS) 

call  lldrawCx,y) 

crntinue 

return 

end 
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The  Air  Force  Armament  Laboratory’s  Hypervelocity  Launcher 
Research  Division  (SAH)  has  been  established  to  research 
electromagnetic  launchers  (EMLs)  or  rail  guns.  This  research  is 
funded  by  SDI  and  is  seen  as  a  potential  method  of  defending  the 
United  States  against  ballistic  missiles  and  reentry  vehicles.  These 
rail  guns  have  the  potential  to  launch  guided  projectiles  at  velocities 
up  to  10  km/sec.  The  power  sources  of  these  guns  need  to  be  able 
to  store  high  levels  of  energy  and  discharge  it  to  the  gun  in  a  small 
amount  of  time.  Many  power  sources  such  as  the  battery  power 
supplies  and  the  5  Megajoule  capacitor  system  have  been  built  on 
site  to  provide  the  necessary  high  current  levels. 

During  the  summer  I  was  involved  with  battery  power  supplies. 
One  system,  the  Prototype  Battery  Power  Supply  (PBPS),  is  composed 
of  960  car  batteries.  This  sys!em  is  being  expanded  to  contain  a  total 
of  1440  batteries  and  will  be  able  to  produce  up  to  250,000  Amps. 
A  program  is  needed  to  determine  if  the  higher  currents  can  be 
reached  after  the  system  is  expanded. 

The  PEPS  system  is  a  modulator  design  that  centers  on  the  use 
of  standard  automotive  batteries.  Figure  1  shows  one  tray  which  is 
10  batteries  in  series.  Each  tray  of  batteries  is  127  volts.  Two  trays 
make  a  string  and  there  are  72  strings  in  this  system.  The  72 
strings  of  batteries  can  be  set  up  in  four  different  configurations  to 
reach  the  desired  current  levels.  One  configuration  is  to  have  up  to 
72  strings  in  parallel  (Figure  2  A).  Another  is  to  have  up  to  72  strings 
in  parallel  with  the  addition  of  grading  resistors  (Figure  2  B).  The 
two  other  possible  configurations  are  to  use  up  to  72  strings  in  series 
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either  with  or  without  grading  resistors  (Figure  2  C  5c  D).  Rc  is  the 
resistance  of  the  copper  cable  when  the  stainless  steel  grading 
resistors  (Rss),  are  bypassed.  The  copper  cable,  is  used  to  connect 

the  strings  directly  to  the  gang  switches.  Grading  resistors  are  solid 

1 

stainless  steel  rods  which  lowers  the  current  output  of  the  batteries. 

Grading  Resistors  are  needed  because  a  battery  has  a  2000  A 
limit  so  only  4000  Amps  can  be  pulled  safely  from  a  string  of 
batteries  in  parallel.  When  the  batteries  are  in  series  only  2000 
Amps  can  be  pulled  from  a  string.  In  the  cases  where  the  desired 
current  level  can  be  reached  without  exceeding  the  limitations  of  the 
batteries  the  grading  resistors  are  not  necessary.  In  that  case  a 
switch  will  allow  the  current  to  flow  through  the  copper  cable 
instead  of  the  grading  resistors. 

Figure  3  shows  how  the  72  strings  of  batteries  in  the  system  are 
set  up.  N  is  the  number  of  strings  of  batteries  from  1  to  72.  The 
individual  string  currents.  Is.  are  summed  to  determine  the  total 
system  current,  It.  Rload  is  the  resistance  in  the  gang  switch,  buss 
work,  storage  inductor,  opening  switch,  and  any  other  external 
resistance. 

A  program  called  "Battery  Configurations"  w'as  written  to 
determine  all  possible  system  currents  and  string  currents  for  all 
four  string  configurations.  Figure  4  is  a  flowchart  for  this  program. 
Since  the  internal  resistance  is  slightly  different  for  each 
configuration  this  program  solves  first  for  the  internal  resistance 
then  adds  that  to  the  constant  load  resistance.  After  the  total 
resistance  is  found  the  total  current  and  current  per  string  is 
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calculated.  The  simulation  starts  with  one  string  of  batteries  and 
continues  adding  strings  to  include  all  72  strings.  The  new  resistance 
of  each  string  is  added  in  parallel  to  the  previous  resistance  as  the 
strings  of  batteries  are  added.  After  all  72  strings  of  one 
configuration  are  calculated  the  calculations  for  the  next 
configuration  begins.  The  output  is  shown  in  as  Table  1  and  Table  2. 
Table  1  shows  the  total  current  of  all  the  strings  being  used  in  Amps. 
Table  2  shows  the  current  per  string  in  Amps.  To  use  these  charts 
the  current  level  that  is  desired  is  found  on  the  total  current  chart 
and  the  current  per  string  chart  is  checked  to  ensure  that  the  current 
out  of  each  string  of  batteries  is  not  exceeding  its  established  limits. 
These  are  plotted  for  easier  understanding  in  Figure  5  and 
Figure  6. 

It  can  be  seen  when  studying  the  graphs  of  the  series  without 
grading  resistors  configuration  that  the  current  produced  ranged 
from  2700  Amps  to  186,000  Amps.  However,  each  string  is 
producing  more  than  2000  Amps.  Since  the  strings  were  pulling 
more  than  its  limit  this  configuration  can  not  be  used  safely. 

In  the  parallel  with  grading  resistor  configuration  and  series 
with  grading  resistor  configuration  the  current  levels  produced  are 
approximately  1,980  Amps  to  140,000  Amps.  The  current  per  string 
is  also  within  its  limits.  Therefore  these  configurations  can  be  used 
to  reach  the  stated  current  levels. 

In  the  parallel  without  grading  resistors  configuration  the 
current  levels  are  high  and  also  desirable.  This  is  the  only 
configuration  that  produces  currents  over  200,000  Amps  and  these 
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41245. 56 
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47069.00 
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52875 . 4  6 
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64437 . 76 

66358.27 
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72108.70 

74021.80 
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77842,47 
79750.03 
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83559.66 

85461.71 

87361.94 
89260.34 
91156.91 
93051 . 65 

94944 .57 

96835.68 
98724 . 96 

100612 . 4 

102498.1 
104382.0 
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108144.3 

110022 . 7 

111899.4 

113774.2 
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117518.6 

119388.1 

121255.7 

123121.7 

124985.8 

126848.2 

128708.8 

130567.6 

132424.6 

134279.9 

136133.4 

137985.2 
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6 

4760.476 
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1970.532 

7 
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2001.031 

2693.417 

1976.592 

9 
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1975.624 

10 

4715.930 
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1974.656 

11 
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2075.401 
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12 
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1971.759 
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1970.795 
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2066.889 

2600.881 

1969.032 

16 
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2679.099 

1960.870 

17 

4639.940 

2062.660 

2677 . 320 

1967.909 

18 

4629.292 

2060.551 

2675.543 

1966.949 

1 9 

4618.686 

2058.447 

2673 . 769 

1965.990 

20 

4600.128 

2056.347 

2671.997 

1965.032 

21 

4597.619 

2054.252 

2670.228 

1964.074 

22 

4587 . 157 
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2668.460 

1963.118 

23 
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24 
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1961.208 

25 
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1960.255 

26 
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2043.838 
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27 
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2041 . 768 

2659.658 

1958.350 

28 
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1957.400 

29 

4515.235 
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2656. 154 
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30 

4505.145 
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2654.406 

1955.501 

31 
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2652.659 

1954 . 553 

f' 

4485.098 

2031.480 

2650.915 

1953.606 

3  3 

4475.141 

2029.435 

2649.173 

1952.659 

J  S 
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2027.394 

2647.433 

1951.714 

35 
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2025.357 

2645.696 

1950.770 

36 

4445.534 

2023.324 

2643.961 

1949.826 

3  7 

4435.752 

2021.296 

2642.228 

1940 . 884 

1  o 

4426.013 

2019.271 

2640.498 

1947.942 

39 

4416.317 

2017.250 

2638.770 

1947.002 

4  0 

4406.663 

2015.234 

2637.043 

1946.062 

4  1 

4397.051 

2013.221 

2635.320 

1945.123 

4  2 

4387 .481 

2011.212 

2633  590 

1944 .105 

4  3 

4377.953 

2009.208 

2631 .879 

1943.240 

4  4 

4368.465 

2007.207 

2630. 162 

1942.312 

••  5 

4359.019 

2005.211 

2628 .447 

1941.376 

•'.6 

4349.614 

2003.218 

2626.735 

1940. 442 

•f  7 

4340.250 

2001 . 229 

2625.024 

1939.509 

4S 

4330.925 

1999.245 

2623.316 

1930.576 

9 

4321.640 

1997.264 

2621.611 

1937 . 644 

50 

4312.396 

1995.207 

2619 . 907 

153C  .714 

51 

4303.190 

1993.314 

2618 . 206 

1935  784 

52 

4294.024 

1991.345 

2616.507 

1934.855 

53 

4284.096 

1909.380 

2614.810 

1933.927 

54 

4275.809 

1907.419 

2613.115 

1932.999 

55 

4266.758 

1985.461 

2611.423 

1932.073 

56 

4257.746 

1983.508 

2609.733 

1931 . 140 

57 

4248.772 

1981.550 

2608.044 

1930.223 

53 

4239.035 

1979.612 

2606.359 

1929.299 

59 

4230.937 

1977.670 

2604.675 

1928.377 

60 

4222.075 

1975.732 

2602.993 

1927.455 

61 

4213.251 

1973.797 

2601.314 

1926.534 

62 

4204.463 

1971.866 

2599.637 

1925.614 

63 

4195.712 

1969.939 

2597.962 

1924.694 

64 

4186.997 

1960.016 

2596.289 

1923.776 

65 

4178.310 

1966.097 

2594.618 

1922.859 

66 

4169.676 

1964.181 

2592.949 

1921.942 

67 

4161.060 

1962.269 

2591.203 

1921.026 

68 

4152.497 

1960.361 

2589.619 

1920.111 

69 

4143.961 

1958.456 

2587.957 

1919.197 

70 

4135.460 

1956.556 

2586.296 

1918.284 

71 

4126.993 

1954.658 

2584.639 

1917.372 

72 

4118.562 

1952.765 

2582.983 

1916.460 
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Figure  5  Total  Current 
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Figure  6  Current  Per  String 
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currents  are  wanted.  The  problem  is  that  each  string  is  producing 
over  4000  Amps. 

To  solve  this  problem  external  resistance  can  be  added  to  the 
system.  Adding  resistance  will  still  produce  the  high  current  levels, 
but  it  will  also  lower  the  current  per  string  to  a  safer  level.  Since 
this  is  a  computer  program  the  external  resistance  can  be  added  and 
changed  easily  in  the  attempts  to  achieve  the  best  results.  To  safely 
reach  200,000  Amps  a  resistance  of  35  microOhms  needs  to  be  added 
to  the  original  internal  resistance.  Figure  7  and  Figure  8  show  the 
results  of  this  change. 


FIGURE  7  200,000  AMPS 
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Figure  8  200,000  Amps 
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To  safely  reacn  250,000  Amps  a  resistance  of  10  microOhms  needs 
to  be  added  lo  the  original  resistance.  Figure  9  and  Figure  1 0  show 
the  successful  results  of  this  change. 


Figure  9  250,000  Amps 
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Figure  1 0  250,000  Amps 
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Now  it  is  known  that  50  JCA  to  140  KA  can  be  reached  easily.  It 
is  also  known  that  by  adding  resistances  to  the  system  the  higher 
current  levels  can  be  reached  safely.  The  users  of  the  system  will 
decide  n'  the  changes  are  possible  and  practical. 

This  program  has  been  expanded  to  identify  the  siring 
configuration  for  a  specified  current  level.  All  the  possible 
configurations  are  displayed.  The  user  chooses  the  configuration 
that  stresses  the  batteries  the  least.  This  battery  configuration 
program  and  an  example  of  the  output  when  the  desired  current  is 
150  KA  is  included  in  Appendix  A.  Appendix  B  is  the  program  used 
when  plotting. 

With  this  program  it  can  be  seen  that  from  0  -  140,000  Amps  of 
current  can  be  easily  reached,  but  there  is  a  window  from  1 50.000 
Amps  -  250,000  Amps  that  can  not  be  reached  safely.  To  re;;  **' 
those  higher  current  levels  external  resistance  can  be  added  to  th< 
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system  to  lower  the  current  output  per  string  to  a  safe  level. 
Through  the  use  of  this  program  the  amount  of  resistance  can  be 
determined. 

Another  system  is  the  Multishot  Battery  Power  Supply  which  is 
made  of  240  car  batteries.  It  produces  up  to  12,000  Amps  and  is 
used  to  charge  a  100,000  Joule  capacitor  bank.  In  this  system  Ross 
relays  are  used.  These  relays  are  difficult  to  control  and  at  times  may 
weld  shut.  They  are  to  be  replaced  with  solid  state  devices. 
However,  if  solid  state  devices  are  to  be  used  the  switching 
requirements  and  device  limitations  must  be  known.  A  program 
which  simulates  the  current  with  respect  to  time  is  written  to 
determine  the  switching  requirements. 

The  Multishot  Battery  Power  Supply  is  a  system  that  is  the 
power  source  of  the  rapid  fire  guns.  These  batteries  are  used  to 
charge  the  capacitors  which  are  then  discharged  to  the  gun.  As  with 
the  other  power  supplies  all  the  batteries  need  not  be  used  at  once, 
but  a  tray  is  the  smallest  unit  to  be  used.  Six  trays  make  a  bank  and 
there  are  4  banks.  Each  bank  produces  up  to  760  Volts.  The 
intended  resistance  and  capacitance  for  each  bank  has  been 
calculated  as  0.240  Ohms  and  0.084  Farads,  respectively.  The 
inductance  for  60  batteries  is  estimated  to  be  10  microHenries. 
Figure  1 1  is  this  simple  series  RLC  circuit. 

To  find  the  current  as  time  changed  in  this  RLC  circuit  the 
following  equation  was  used. 

I(t)  -  Aje*'‘  ^ 
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cm 


R 

Figure  1 1  Simple  Series  RLC  Circuit 
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where 


a  =  R  /  2C 
(D  -  1/S0R(LC) 

SI  -  -  a  +  SQR  (ot^  -0)^  ) 

SI  -  -  a  -  SQR(cx^-  aj“) 

and 

A  =  V/  L(S1-S2) 

A  current  level  was  calculated  for  the  first  80  mS.  It  was 
noticed  that  the  current  peaked  before  1  mS  so  the  peak  current  was 
not  seen  on  the  plots.  Another  loop  was  added  to  the  program  to 
calculate  the  current  starting  at  .ImS  to  ImS  with  a  time  step  of 
.ImS  then  calculations  were  continued  at  every  millisecond.  The 
program  flowchart  is  shown  in  Figure  12. 

When  the  current  is  plotted  with  respect  to  time  many 
interesting  things  happen  as  external  resistance  is  changed.  As  more 
resistance  is  added  the  current  peak  is  lowered  but  the  total  current 
falls  slower.  It  was  also  noticed  that  as  resistance  was  increased  the 
current  peaked  more  rapidly.  An  example  of  this  is  in  Figure  13  . 
The  external  resistance,  Rx,  is  changed  from  0  Ohms,  to  .060  Ohms, 
and  to  .120  Ohms.  The  current  peaks  and  time  of  current  peaks  are 
as  follows: 
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Figure  1 3  Charge  Current 
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CURRENT  PEAK 

TIME  TO  PEAiC 

RX=  0 

Ohms 

3133.55  Amps 

.2585  mS 

RX  -  .060 

Ohms 

2515.13  Amps 

.2214  mS 

RX  =  .120 

Ohms 

2100.  Amps 

.1946  mS 

This  program  answers  many  questions  about  this  power  system. 
It  is  now  known  how  much  external  resistance  needs  to  be  added  to 
lower  the  current  peak.  It  is  also  known  that  by  adding  inductance 
the  time  to  peak  is  longer,  but  the  peak  current  will  only  lower  by 
approximately  100  Amps. 

It  was  determined  that  the  solid  state  device  needs  to  be  able  to 
switch  at  3000  Amps.  If  resistance  is  added  it  only  ne'*ds  to  switch 
at  2000  Amps.  Many  different  cases  were  run  with  different 
variables  to  determine  the  changes  that  needed  to  be  made.  This 
program  and  an  example  of  the  output  is  included  in  Appendix  C. 

The  current  simulation  programs  proved  what  was  expected 
with  the  addition  of  batteries  in  the  prototype  battery  power  supply 
and  showed  what  was  required  of  the  solid  state  devices  in  the 
multishot  battery  power  supply. 

I  have  learned  a  great  deal  at  the  Hypervelocity  Launcher 
Technology  Branch  this  summer.  I  have  written  programs  about  the 
current  output  of  the  prototype  battery  power  supply  and  the 
multishot  battery  power  supply.  To  write  theses  programs  I  had  to 
learn  about  each  power  supply,  how  they  are  set  up,  how  they 
operate,  car  batteries,  circuits,  and  how  to  program  in  Fortran  on  the 


19-22 


VAX/ VMS  system.  I  also  had  the  opportunity  to  learn  about 
electrical  circuits,  their  components,  and  how  to  make  circuit  boards. 
I  increased  my  knowledge  about  electromagentic  launchers  and 
computers.  I  also  learned  that  a  lot  of  research  has  to  be  done  before 
a  project  can  begin. 
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This  summer,  I  worked  under  Universal  Energy  Systems  of  Dayton, 
Ohio,  for  the  Air  Force  Armamen:  Laboratory  on  Eglin  Air  Force  Base.  More 
specifically,  I  worked  in  the  Signal  Processing  section  of  SAI,  the  Guided 
Interceptor  Technology  branch  of  the  Analysis  and  Strategic  Defense 
Division. 

SAI  falls  under  the  Strategic  Defense  Initiative  Organization  (SDIO), 
that  organization  which  is  ruthlessly  hounded  by  the  press  and  commonly 
called  "Star  Wars."  The  basic  goal  of  SDI,  as  set  forth  in  SAI’s  Introductory 
Package  is  four-fold: 

1.  Support  a  better  basis  for  deterring  aggression: 

2.  Strengthen  strategic  stability; 

3.  Increase  the  security  of  the  United  States  and  its  Allies: 

4.  Eliminate  the  threat  posed  by  ballistic  missiles. 

The  Guided  interceptor  branch  deals  with  the  design  of  (can  you  guess?) 
guided  interceptors  to  meet  these  ends. 


II.  The  Hough  Transform 

For  the  Hough  transform,  I  took  Derek  Holland's  basic  ideas  and 
molded  them  into  something  that  actually  worked!!  The  whole  point  of  the 
Hough  is  to  take  a  plume  and  extract  the  leading  curve  from  which  you  can 
calculate  an  aimpoint  to  the  hardbody.  Well.  Derek  and  I  never  got  THAT 
far.  but  we  did  extract  the  leading  curve  pretty  well. 

The  Hough  starts  out  by  playing  a  massive  game  of  "Connect  -  the  - 
dots"  --  it  connects  every  pixel  in  the  image  with  every  other  pixel.  It 
redefines  these  lines  from  a  set  of  (x,  y)  to  a  set  of  (m,  b)  and  plots  them  on 
the  slope-intercept  plane.  Then,  it  counts  the  number  of  intersections  at 
each  point,  thresholds  to  a  given  percentage  of  the  maximum,  and 
cross-references  the  remaining  slopes  and  intercepts  with  the  original 
image. 

Basically,  the  Hough  worked;  the  only  problem  1  can  see  with  it  is  that 
it  takes  almost  forever  to  run  an  image.  The  images  we  work  with  are  128 
X  128,  which  means  that  the  program's  got  to  loop  268,435,456  (128^) 
times  just  to  draw  ail  the  lines  between  pixels!  When  we  first  started  out, 
the  transform  took  about  3^2  hours  to  run.  At  present,  we've  gotten 

execution  time  down  to  just  over  an  hour.  I  plan  to  implement  a  version  of 
the  Hough  transform  in  MISP,  the  Multiple  Image  Signal  Processor;  MISP  is 
in  C,  which  should  execute  faster  than  DSM’s  FORTRAN  code. 
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III.  The  Multiple  Image  Signal  Processor 

The  Multiple  Image  Signal  Processor,  what  we  like  to  call  MISP, 
originated  in  the  mind  of  Starla  Christakos.  my  mentor.  Up  until  this 
summer,  the  only  signal  processing  simulation  available  was  DSM.  the 
Digital  Seeker  Model.  DSM,  however,  works  with  only  one  image  at  a  time. 
This  presented  a  problem  when  someone  wanted  to  test  a  set  of  algorithms 
on  an  entire  scenario  (somewhere  in  the  neighborhood  of  1500  images). 
Our  basic  goal  for  MISP.  therefore,  was  to  create  a  signal  processing 
simulation  that  could  process  large  numbers  of  images  at  high  speeds. 

Derek  Holland  and  I  decided  (in  a  fit  of  brilliant  madness)  decided  that 
we  should  program  MISP  in  the  C  language.  This  was  a  brave  undertaking, 
for  neither  of  us  had  much  experience  with  C  and  led  us  to  sit  staring  at 
computer  monitors  for  days,  asking  ourselves  "How?"  Then,  one  day, 
everything  fell  together,  and  the  program  seemed  to  fly  into  place.  We 
spent  the  better  part  of  three  days  writing  the  program  and  the  better  part 
of  three  weeks  debugging  it. 

In  the  end,  MISP  was  a  success.  We  processed  1493  images  in  84 
minutes— one  image  about  every  3.4  seconds— much  faster  than  anything 
before  its  time.  There  are  still  some  modifications  I’d  like  to  make  to 
increase,  if  not  its  speed,  its  modularity.  But  those  will  have  to  wait... 

MISP  is  broken  down  into  five  main  sections:  program  control,  signal 
processing,  graphics,  file  input/output,  and  user  interface.  Breakdown 
between  section.:  is  as  follows: 

Program  control:  main(),  quitpr(),  and  Tun_simulation(); 

Signal  processing:  signal_process(),  swap_centroids,  and 
zero_cent(); 

Graphics:  graph_cent(),  graphJmgO,  graph_proc(),  graph_.set(), 
threshJmgO,  thresh_proc(),  and  viewimgO; 

File  input/output:  init.fmalO,  loadJmagcO,  opcn_script(), 
read_script(),  save_rinal(),  and  save_process(); 
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User  interface:  menu(),  menu_displayO,  and  temi_set(  ). 

PROGRAM  CONTROL.  Main()  and  run_simulation()  are  both  simply 
drivers  for  the  program.  Quitpr(),  as  its  name  implies,  quits  the  program 
with  an  exit  status  of  0. 

SIGNAL  PROCESSING.  SignaI_processO  contains  all  the  algorithms  for 
processing  the  image.  Swap_centroids()  and  zero_cent()  perform  the  dull 
yet  necessary  task  of  cleaning  up  the  centroid  arrays  between  images. 

GRAPHICS.  The  job  of  setting  up  the  windows  and  activating  the 
command  windows  goes  to  graph_set().  Graph_img()  and  graph_proc() 
graph  the  original  image  and  the  processed  image,  respectively. 
Thresh_img()  and  thresh_proc()  perform  an  upper  threshold  on  the  display 
arrays.  ViewimgO  contains  a  bit  of  file  I/O,  too— it  loads  an  image  and 
displays  it.  Graph_cent()  was  supposed  to  graph  the  centroids  on  the 
image,  but  that  remains  to  be  seen. 

FILE  INPUT/OUTPUT.  Open_script()  and  read_script()  (obviously) 
open  and  read  the  script  file.  Load_image()  loads  the  image  into  the 
intensity  array.  Save_process()  saves  the  signal  processed  image  to  disk. 
Init_final()  and  save_final()  take  care  of  saving  the  evaluation  of  signal 
processing  to  disk  image  by  image. 

USER  INTERFACE.  (Again,  the  obvious:)  Menu()  and  menu_display() 
are  the  menu  section  of  the  program.  Menu()  is  the  "guts"  of  this  section, 
passing  its  information  on  to  menu_display(),  which  displays  the  current 
settings  of  variables.  Term_set(),  like  graph_set(),  its  counterpart,  sets  up 
the  program  to  run  on  a  terminal. 
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The 


Hough  Transform 


■j  c _ 

c - Houah  Transform 

i  ; - t:;  ano  DH  5/06/90 


subroutine  houghtrans  (pfpa, fsize) 

real*4  pipa (128, 128) 

integer  fsize,  i,  i,  c,  d,  max, count 

integer  m,b,stb,edb 

real*8  sc 

integer  sipsz 

integer  slope (-128: 129, -12800: 12800) 
common  /  buffers/  buff 
print*, ' Hough  reached.' 
sipsz  «  12800 

c - Determine  all  possible  lines  and  plot  intensities  in  slope  () 

print*, ' Determinig  lines  and  plotting  in  slope ()' 
sc  =  1.27 
max  ■=  0 

do  2  1  *  2, fsize  -  1 
do  1  3  =  2, fsize  -  1 

if  (pfpa (i, ]) .ne . 0)  then 
do  4  c  =  2, fsize  -  1 
do  3  d  =  2, fsize  -  1 
if  (i-c.ne.O)  then 
m=  (j-d)/(i-c) 
else 

m  =  fsize  +  1 
endif 

b  -  j  -  (m*i) 

slope (int (m) , int (b/sc) )  “  slope (int  (m) , 

*  int  (b/sc) )  +  1 

if  (slope (int (m) , int (b/sc) ) .gt .max)  then 
max  -  slope (int (m) , int (b/sc) ) 
endif 

3  continue 

4  continue 
endif 

1  continue 
print* , ' ROW  =  ' ,  i 

2  continue 


c - Threshold  slope  array 

print*, 'Thresholding  slope ()' 
print*,'  MAX  «',max 
print*,'  THRSH  -',max*.75 
count  =  0 

do  8  m  “  -fsize, (fsize+1) 
do  7  b  -  -sipsz, sipsz 

if  (slope (m,b) . It , (max  "  .75) )  THEN 
slope {m,b)  “  0 
count  »  count  +  1 
endif 

7  continue 

8  continue 

print  *,'#  of  entries  removed  =  ', count 

print*, '%  of  entries  removed  =  ' ,  (count*100)  / ( (4*fsize*slpsz) +1) 

c - Cross-reference  data  in  slope  ()  with  pfpaO 

stb  -  -sipsz 
flag  =  0 

do  15  b  «  -sipsz, sipsz, -1 
do  i4  m  »  -fsize, fsize+1 
if  (:.lope (m,b)  .ne.O)  then 
stb  '  b 
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I 


endif 

continue 

print’, ' B (step  1)  =  ',b 
continue 
edb  “  slpsz 
flag  =  0 

ao  17  b  =  slpsz , -slpsz, -1 
do  18  m  =  -fsize, f size+1 
if  (slope (n,b) .ne.O)  then 
edb  “  b 
endif 
continue 

print*, 'B (step  2)  =  ',b 
continue 

print*, '  Cross-referencing  data  in  slope  ()  with  pfpaO' 
do  11  i  =  2,fsize-l 
do  9  ]  =  2,fsize-l 

if  (pfpa(i, j) .ne.O)  then 
flag  =  0 

do  13  m  =  -fsize, (fsize+1) 
do  12  b  =  stb,edb 

if  ( j .eq. ( (m) *i) + (b*sc) )  then 
flag  =  1 
m  =  129 
b  =  slpsz 
endif 
continue 
continue 

if  (flag.eq.O)  then 
pfpa(i, j)  =  0 
endif 
endif 
continue 

print*, ' ROW  =  ' , i 
continue 

end 
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The 


^^ultiple  I  mage  Signal  P rocessor 


Version  1  . 1 


Developed  July-August  1 990  by  HSAPs 
Troy  Urquhart  &  Derek  Holland 
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mv  r.isp.c  /home/derek/backup/misp.c 

cat  header. text  main.c  finai_eval.c  graph_cent.c  graph_img.c\ 

graph_proc.c  graph_set.c  init_final.c  load_image . c  .'nenu.c', 
menu_dispiay . c  mispget.c  open_script . c  quitpr.c  reaa_script . c \ 
run_simulation . c  save_finai.c  save_process . c  signai_prccess . c . 
swap_centroids .  c  term_set.c  thresn_img.c  thresh_proc  .  c 
viewimg.c  zero_Gent.c  >  misp.c 
cc  -g  -o  MISP  misp.c  -im  -Isuntooi  -isunwindow  -ipixrect 
chmoc  4511  MISP 
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#define  VERSION  "1.1" 


* include  <math.h> 

#inciude  <stdio.h> 

#include  <strings.h> 
finclude  <suntooi/sunview.h> 
#include  <suntool/canvas . h> 
finclude  <suntool/panel .h> 


# define  IMGEXT  ".img" 
tdefine  SGPEXT  ".sgp" 
f define  INTEXT  ".int" 
fdefine  AREEXT  ".are" 
tdefine  COMPRESSCMD 
tdefine  COMPRESSEXT 
» define  UNCOMPRESSCMD 


"compress  " 

"  .2" 

"uncompress  " 


tdefine  DEFAULTSCRIPT 
tdefine  DEFAULTFINAL 
tdefine  DEFAULTCOMPRES 
tdefine  DEFAULTGAINOFF 
tdefine  DEFAULTGAIN 
tdefine  DEFAULTOFFSET 
tdefine  DEFAULTSCENEST 
fdefine  DEFAULTTHRESH 
“define  DEFAULTTHRESHV 
tdefine  DEFAULTCLUST 
tdefine  DEFAULTAIMIPT 
tdefine  DEFAULTHARDDT 
tdefine  DEFAULTTRACKVC 
tdefine  DEFAULTAIMPT 
tdefine  DEFAULTTRUP 
tdefine  DEFAULTTRLO 
tdefine  DEFAULTKFOUR 
tdefine  DEFAULTKTHREE 


"/home/troy/misp/script .file" 
" /home/ troy /misp/ final" 


1.25329102 

-0.128529361 

0 


1 

1 

X 

0 

2 

1 

50 

1 

0.9853981634 

1.078097245 


Frame  frame,  panframe,  sigframe; 
Canvas  canvas,  sigwin; 

Window  panel; 
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nai_eval  ( ) 


extern  tnar  finai_file [ 50] ; 

extern  FILE  ’finai  fi; 

char  cnr;  ~ 

fputs ("~\n", final_fl) ; 

f close (final_fl) ; 

final_fl  =  f open (final_f lie, "r”) ; 

while  (chr  !=  ' ) 

{ 

chr  =  fgetc (final_f 1) ; 
printf  chr) ; 

} 

fclose (final  fl); 


20-16 


:aph_i.’ng  ( ) 


extern  rnt 
extern  char 


rarr i 128] ; 123; ,  rda 
filename { 50 ; ; 


register  Pixwin  >'dw; 
register  int  i‘,  j,x,y; 

n_cnar  red (128], 

blue ( 128 ] , 
green  [128],: 


rr ;i23] [123] 


pw  =  canvas_pixwin(canvas);- 
j  =  0; 

for  (i=0;i<128;i-r+)  { 

j  +-  2; 
if  ( j==256) 
j  =  255; 

blue(i]  =  green (i] 


=  red{i)  = 


pw_setcnisname  (pw,  "HSAP")  ; 

pw_writebackground(pw, 1, 1, 384, 384, NULL) ; 

for (x=i;x<384;x=x+3)  { 

for (y=i;y<384;y=y+3)  i 

if ( (idarr ix/3] [y/3]==i) )  { 

pw_put(pw,  x+l,y+l,l); 

if ( (idarr (x/3] (y/3) >*2) && (idarr [x/3] [y/3j<=6) ) 

pw_put(pw,  X,  y,  1); 

pw_put(pw,  x+l,y,l); 

pw_put(pw,  x+l,y+l,l); 

pw_put(pw,x,y+l,l); 

pw_put(pw,x+2,y,l); 

pw_put(pw,x+2,y+2,l) ; 

pw_put(pw,x,y+2,l) ; 

} 

if ( (idarr(x/3] (y/3]>=7) )  { 

pw_put(pw,  X,  y,  1); 
pw__put(pw,  x+l,y,l); 
pw_put(pw,  x+l,y+l,l); 
pw_put(pw,x,y+l,l); 
pw_put(pw,x+2,y,l); 
pw_put(pw,x+2,y+l,l)  ; 
pw_put(pw,x+2,y+2,l)  ; 
pw_put(pw,x+l,y+2,l)  ; 
pw_put(pw,x,y+2,l)  ; 
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grapn_proc ( ) 

extern  int  sarr  [128]  [12S‘. ,  sdarr  ;i28][12£]  ; 

extern  char  filename  [  50 j 


register  Pixwin  *sw; 
register  int  i,j,x,y; 
u_char  red [128], 

blue[128] , 
green [128] ; 


sw  =  canvas_pixwin(sigwin); 

j  =  0; 

for (i=0;i<128;i++)  { 

]  +=  2; 
if ( j=-256) 
j  =  255; 

blue[i]  =  green [i]  =  red[i]  =  j; 

} 

pw_setcmsname (sw,  "HSAP") ; 

pw_writebackground(sw, 1, 1,384 , 334, NULL) ; 

for  (x=i;x<384;x=*x-t-3)  ( 

for (y=l;y<384;y«y+3)  ■ 

if { (sdarr [x/3] [y/3]==l) )  { 

pw_put(sw,  x+l,y+l,l); 

} 

if ( (sdarr [x/3] [y/3] >-2) && (sdarr [x/3]  (y/3]<=6)  ) 

pw_put(sw,  X,  y,  1); 

pw_put(sw,  x+l,y,l); 

pw_put(sw,  x+l,y+l,l); 

pw_put (sw,x,y+l,  1)  ; 

pw_put(sw,x+2,y,l)  ; 

pw_put (sw,x+2,y+2, 1)  ; 

pw_put(sw,x,y+2,l)  ; 

} 

if ((sdarr [x/3] [y/3]>-7))  { 

pwjput(sw,  X,  y,  1); 
pw_put(sw,  x+l,y,l); 
pw_put(sw,  x+i,y+l,l); 
pw_put (sw,x,y+l, 1) ; 
pw_put(sw,x+2,y,l) ; 
pw_put (sw,x+2,y+l,l) ; 
pw_put (sw,x+2,y+2, 1)  ; 
pwjput (sw,x+l,y+2,l) ; 
pw_put (sw,x,y+2, 1) ; 

) 
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static  viewimgjO,  quitprjO,  run_siniuiation j  ()  ; 

craph_sec (argc,  argv) 
int  argc; 
char  **argv;  { 
extern'  char  filename  [  50 )  ; 
extern  int  display; 

frame  =  window_create(0,  FRAME,  FRAME_LABEL,  "Current  Image", 

WIN_X,  530,  WIN_y,  IOC,  FRAME_ARGS,  argc,  argv,  0); 

canvas  =  window_create {frame,  CANVAS,  WIN_KEIGHT,  384, 

WIN_WIDTH,  384,  0); 

sigframe  -  window_create (frame,  FRAME,  WIN_X,  400,  WIN_y,  50, 

panframe  =  window_create( frame,  FRAME,  WIN_X,  400, 

sigwin  =  window_create (sigframe,  CANVAS,  WIN_HEIGHT,  384, 

WIN_WIDTH,  384,  0); 

panel  =  window_create (panframe,  PANEL,  0); 

panel_create_item (panel ,  ?ANEL_3UTTON, 

PANEL_LABEL_IMAGE ,  panel__button_image (panel ,  "Run  MIS?",  5, 
PANEL_NOTI?Y_PROC,  run_simulation j,  0) ; 

panel_create_item (panel,  PANEL_BUTTON, 

PANEL_LABEL_IMAGE,  panel_button_i.'nage  (panel, 

panel_create_item (panel ,  PANEL_3UTT0N, 

PANEL  LABEL_IMAGE,  panel_batton  image (panel,  "Quit",  5,  0), 
PANEL“N0TIFY_PR0C,  quitprj,  0) 

printfC'MISP  %s\n",  VERSION)  ; 

printf ("Developed  by  DH  &  TU  (SAI)\n"); 

window_f it (sigframe) ; 
window_f it (frame) ; 
window_fit (panel) ; 
window_fit (panframe)  ; 

window_set (sigwin,  NULL,  NULL,  0); 

window_set (sigframe,  FRAME_LABEL,  "SigProc",  WIN_SHOW,  TRUE,  0) ; 
window_set (panframe,  FRAME_LABEL,  "Commands",  WIN_SHOW,  TRUE,  0); 

window_main_loop( frame) ; 


static  run_simulation j ( ) 

{ 

run_simulation ( ) ; 

% 

static  viewimgjO 
viewimg { ) ; 


static  quitprjO 

t 

quitpr ( ) ; 
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nalO 


extern  cnar 
extern  FILE 
extern  int 


finai_file {50] , 
’f inai_fl; 
trackvc; 


final_fl  =  fopen(final_file/ "w") ; 

fputs ("XnMultiDle  Imaae  Signal  Processing  simuiaticn\n\n" , f inai_f  1) 
fputs ("FINAL  EVALUATION:  Tracking  by  ",finai_fi); 
if  (trackvc  ==  1)  {  fputs ("Area  ",final_fl);  ; 
if  (trackvc  ==  2)  {  fputs ("Intensity  ",final_fl); 
fputs ("Centroid\n\n", final  fl) ; 
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oad_image ( ) 


extern 

extern 

extern 

char 

FILE 

rnt 


mar  filename[503; 

compres,  tarr • 128] [128]  ; 
moat  icen(3][10],  acen{3](103; 
mlei56J,  cmd(67],  byte; 


if  (compres) 


strcpy (cmd,  UNCOMPRESSCMD) ; 
strcat (cmd, filename) ; 
strcat (cmd, IMGEXT) ; 
strcat (cmd, COMPRESSEXT) ; 
system (cmd) ; 


strcpy (file, filename) ; 
strcat (file,  IMGEXT) ; 

fp  =  fopen(file,  "r"); 
if  (fp  ==  NULL) 


.-^_n^_  {  \n%cERROR:  could  not  ooen  'iie* 

^  icen[2](0]  =  2;  acen[2]  [0]  =  2;'  ‘  '  ' 

else  {  for  (x=0;  x<=127;  x++)  {  for  (y»0;  y<=127;  y++) 

iarrjx] [y]  =  0; 

for  (count^O;  count<=4;  count++) 

i 

byte  *  fgetc(fp); 
if  (byte<“58  &&  byte>“48) 


/,  me) 


j  isrrfx]  [y]  ••  iarr[x](y]  *  10  i-  byte  -  48; 

} 

}) 

fclose(fp) ; 
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#inciude  </home/troy/misp/Global . h> 

int  ccrr.pres,  gainoff,  scenest,  thresr.,  nr.resr.v,  dust; 
int  aimpt,  harddt,  trackvc,  ntar; 
int  trup,  trio; 

int  larr  il28]  [128] ,  idarr  il28H128] , 

sarr(128] [128],  sdarr[128] [128] ; 

int  display; 

float  gain,  offset,  icen[3] [10] ,acen(5] [10] ; 
float  oicen{3] [10],  oacen[3] [10]  ; 
float  kthree,  kfour,  variable; 

char  filesppd[50] , filesgp[50] , scriDt_file(50] ,  final_file [50] , filename [50] 
FILE  »scr_fl,  *final_fl; 

niain{argc,  argv) 

int  argc; 

char  **argv; 

t 

\ 

extern  int  display; 

char  str[3]; 

while  (str(0]  !,=  'y'  &&  str[C;  !=  'V'  str[0]  !=  'n'  Si 
str [0]  !=  'N' ) 

t 

\ 

printf{"\nDo  you  wish  to  enable  graphics?  (y/n)  ") ; 
gets (str) ; 

} 

display  -  (str[0]  =—  'y'  ||  str[0]  ==  'Y')  ?  1  :  0; 
if  (display) 

{ 

graph_set (argc,  argv) ; 

} 

if  ([display) 

{ 

term_set  ( ) ; 

exit (0) ; 

) 
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nien-a : ) 


extern  char  script_fiie [5G| , 

finai_fiiei50] ; 

extern  int  compres,  gainoff,  scenest,  thresh, 

threshv,  ciust,  aimpt,  harddt,  trackvc, 
trio; 

extern  float  gain,  offset,  xthree,  kfour,  variable; 
char  str[50], 

inpt [5] ; 
int  count; 


/*  set  default  values  */ 

strcpy (script_file,  DEFAULTSCRIPT) ; 

strcpy(final_file,  DEFAULTFINAL) ; 

compres  =  DEFAULTCOMPRES; 

gaxnoff  =  DEFAULTGAINOFF; 

gain  =  DEFAULTGAIN; 

offset  =  DEFAULTOFFSET; 

scenest  =  DEFAULTSCENEST; 

thresh  =  DEFAULTTHRESH; 

threshv  =  DEFAULTTHRESKV; 

dust  =  DEFAOLTCLUST; 

trackvc  =  DEFAULTTRACKVC; 

trup  =  DEFAULTTRUP; 

trio  =  DEFAULTTRLO; 

aimpt  =  DEFAULTAIMPT; 

kthree  =  DEFAULTKTHREE; 

kfour  -  DEFAULTKFOUR; 

harddt  -  DEFAULTHARDDT; 

menu_di splay ( ) ; 

while  (str[0]  !=  'R') 

( 

str(0]  =  '\0'; 
inpt(0]  «  '\0'; 

printf ("XnEnter  'R'  to  Run  simulation,  'Q'  to  quit,  ") 
printfC'or  '?'  to  redisplay  settings. \nMIS?>") ; 
gets (str) ; 
if  <strtG]  =-  '?') 

{ 

menu_disDlay { ) ; 

1 

if  (striCI  =»  'A') 

( 

printf ("Script  file:  "); 

gets(script_file) ; 

) 

if  (str(0]  —  'B'} 

{ 

printf ("Final  evaluation  file:  ") ; 

gets (final_file) ; 

) 

if  (strfO)  =-  'Cn 

I 

printf ("Gain  &  offset :\n"); 

printf ( "\t0 )  none\n") ; 

printf ("\tl)  Standard  SPPD  aigorithmsNn")  ; 

while  (inpt(O)  '0'  &6  inptIO]  '1') 

gets (inpt) ; 

} 

oainoff  -  inptfO}  -  48; 

} 

if  (striO)  —  'D') 

( 
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printf  ("Scene  stabilizat^cn; '.n" )  ;  :l 

?rintf("\tO)  none\n"); 

)'  StianciairQ  S??D  alcrorxchms \n" )  /  '  ^ 

while  (inpciOl  !=  '0'  ir.prio]  !=  '1')  '  1} 

gets(inpt); 

i 

scenes':  =  inpt(O)  -  48;  A' 

'i  ^  I 

if  (strfO]  ==  'E') 


printf  ("Threshold: \n") 
printf("\t0)  none\n"); 
printf("\tl)  Fixed  value\n")  ; 
printf  ("\t2)  Perce-'tage  threshoid\n")  ; 
while(inpc(0]  !-  'u  inor(0]  !=  'l'  s& 
inptfO]  !«■  '2') 

j 

get  s ( inpt ) ; 

) 

thresh  -  inptfO]  -  48; 

} 

if  (str[0]  ==  'F') 

/ 

printf ("Clusterina: \n") ; 
printf ("\t0)  none\n") ; 

f  { "\tl )  Standard  SPPD  algorirhmsXn")  • 
while(inpt(0]  !-  '0'  &4  inpt(0]  !=  'l') 

gets (inpt) ; 

} 

^  dust  =  inpt[0]  -  48; 

if  (str (0]  »-  'G' ) 

{ 

printf  ("Trac)cing:  \n") ; 
print£("\tl)  by  Area  centroidXn"); 
printf  ("\t2)  by  intensity  centroid\n") ; 
while  (inptfO]  !=  'i'  &&  inptfO]  !=  '2') 

gets (inpt) ; 

} 

^  trackvc  =  inpt[0]  -  48; 

if  (str [0]  ==  'H' ) 

{ 

printf ("Aimpoint  offset :\n"); 
printf ("\t0)  none\n"); 

printf ("\tl)  Standard  SPPD  algorithmsXn")  ; 
while(inpt(0]  !=  '{)'  i;.  inptfO]  !=  '1') 

gets (inpt) ; 

) 

^  aimpt  =  inpt[0)  -  48; 

if  (str(0]  =—  'I') 

printf ("Hardbody  detection: \n")  ; 
printf ("\t0)  noneXn"); 

printf C'Xtl)  Standard  SPPD  algorithmsXn"); 
while  {inpt[0]  !-  '0'  &&  inpt(0}  !=  '1') 

^  gets (inpt); 

harddt  ■  inpt ( 0 ]  -48; 
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if  (strfOJ  == 


printfC'Uncompression/Coinpression-\n'''  ■ 

printf("\tl)  Standatd\n") • 

while  (in?t[0]  !-  54  inptfO]  !=  - ' 

gets(inpt); 


compres  =  inpt(O)  -  48; 


if  (str{0] 


return; 


if  (str(0} 


printf  ("Gain  =  <• 

mxspgetO; 

gain  »  variable; 


if  (str[0] 


ptj.  It  f  ("Offset  =  "); 

mispget { ) ; 

offset  »  variable; 


if  <str[03 


printf ("Threshold  »  "); 

mispgetO; 

threshv  »  variable; 


if  (3tr(0] 


mispget  of'  niovement/ frame  = 

trup  =  variable; 


if  (str(0] 


printf  ("Min.  target  .movement /frame  “  ")  ■ 

mispget  (!; 

trio  •=  variable; 


if  (str(0I  ==  'f') 


printf {"K3  constant  *  ") • 

mispget ( ) ; 

kthree  «  variable; 


if  (str(0]  ) 


printf (”K4  constant  »  "); 

mispget {); 

kthree  «•  variable; 
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menii_display  ( 


extern  char 
extern  int 


extern  float 


script_fil6{50J, 
finai_fiie(50}; 
gainoff,  scenest,  thresh 

threshv,  dust,  aimpt,  h^adt,  trackvc,  trup, 
gain,  offset,  ktr.ree,  kfour; 


setup: \n\n'>); 

p.in^.  .  A)  Scriot  file: \t\t\''s-<;\''\-ti 
printfC'B)  Final  file : \t\t 

printfC'C)  Gain  &  offset \t'-)  '‘^nal_fde); 
if  (igainoff) 

^  Printf  C'noneXn") : 

it  (gainoff  ==  i ) 

{ 

pr  jSt  f !  •IPoPittosNp” ) ; 

,  P-Ptf,  a,  Ga.„  .  .  .£V„.., gain, Offset,.. 

printf {"none\n") ; 


if  (scenest 


j  Printf (-standard  SPPD  algorrthms\n"); 

print f("E)  Threshold;  \t\t'')  • 
if  (.'thresh) 

{ 

^  Printf {"none\n") ; 

if  (thresh  =«=  i) 

,  printf ( -Fixed  valueNn"); 

if  (thresh  =••  2) 

^  Printf ("Percentage  thresholdXn")  ; 

if  (thresh  «  1  I  I  thresh  ==  2) 

)  P^i"tf("  c)Threshold=%d\n",threshv); 

{ 

^  printf ("noneNn") ; 

if  (dust  ==  1) 

j  printf ("Standard  SPPD  algorithmsVn") ; 

printf ("G)  Tracking; \t\t"); 
if  (trackvc  «=  1) 


j  printf ("by  Area  centroid\n") ; 

if  (trackvc  «*•  2) 

^  printf ("by  Intensity  centroidXn")  ; 


20-26 


up)  ; 
lo)  ; 
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mispget  0 

extern  float  variable; 

char  inpt(50); 

int  X,  y,  z,  sign,  j  =  Q; 

float  d  =  0; 

gets (inpt) ; 

variable  =  0; 

d  =■  0; 

sign  =  (inpt[03  ==  ?  -1  :  i- 

X  =  (sign  ==  1)  ?  0  ;  i;' 

while  (inpt{x3  u  x  <=  strlen(inpt) ) 

if  (inpt(x]  <=  57  &&  inpt(x3  >=  48) 

^  3  =  (j*10)  +  inpt(x]  -  48; 

X++; 

} 

if  (x  <  strlen (inpt) ) 

for  (y=x;  y<“Strlen (inpt) ;  y++) 

(inptfxj  <“  57  55  inpt{x]  >=  48) 
^  d  =  (d*10)  +  inpt(x]  -  48; 

} 

} 

for  (z-x;  2<=y;  2++) 
d  -  d  /  10; 

) 

variable  ■  sign  *  (j  +  (d))/ 


yuiiWtMiniiw#  ♦ffrvwflw*. 


filename (50] ; 
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static 

/ 


quitpr  0 

window_destroy ( frame) • 

print f { "MISP  exit . " )  ; 
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ead_script  () 


extern 

extern 

int 


char 

file 

count=0 


tilename { 50] ; 
’'scr  fl; 


while  (filename [count-i I 

filename ( count ]  = 
count ++; 

} 

filename [ccunt-i]  =  '\0'' 
count  =  fgetc (scr_fl) ; 


s&  count  <= 
fgetc (scr_fl) ; 


50) 
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static  run_simuiation ( ) 

extern  int  display; 

/*  variables  for  file  i/o,  etc. 


extern 

char 

filename { 50 ] ; 

extern 

FILE 

*scr_fl,  *finai_fl; 

extern 

char 

script  file [50], 
final_file[501; 

extern 

float 

icen[3] (10] ; 

menu  ( ) ; 

if  (script_file[0]  =»  '\0')  {  strcpy (script_f ile, DEFAULTSCi^IPT) ;  , 
if  {final_file(0)  =»  '\0')  {  strcpy (£inal_f ile, DEFAULTFINAL) ;  } 
open_script  { ) ; 
init_final 0 ; 

while (filename  {0}  !=  '\0') 

{ 

2ero_cent ( ) ; 
load_image ( ) ; 
if (icen(2] [0]  !=  2) 

{ 

if (display”=l) 
i 

thresh_img { ) ; 
graph_ima ( ) ; 

} 

signal_process { ) ; 
if  (display— 1) 

{ 

thresh_proc  0 ; 
graph_proc ( ) ; 

) 

save_process  0 ; 

save_final ( ) ; 
swap~centroids ( ) ; 
read'script ( ) ; 
printf  (*'\n")  ; 

) 

close (scr_fl) ; 

final_eval 0 ; 

script_file [0]  =  '\0'; 

printf ("\nMISP  EXECUTE  COMPLETE. \n\n"); 
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acen(5] [10] ; 


save_final () 

{ 

extern 

extern 

extern 

extern 

int 


char  filename  [50] 
FILE  *final_fl; 

float  icen [3] [10] , 
int  trackvc; 

cen[3] [10] , 

X,  y; 


for  (x*0;  x<=2;  x++)  {  for  (y=0;  y<=9;  y->-+) 

{ 

if  (trackvc  ==  1)  {  cen[x](yj  =  acen[x](y];  } 
if  (tracKvc  ==  2)  {  cen(xl(y]  ,=  icen[x](yj;  ) 


fputs (filename, final_fl) ; 
fputs (" : \n", final_fi) ; 

If  (cen(2](0]  ==  2)  {  fputs ( "\t\t\tFILE  LOAD  ERRORXn" , f inal_f 1)  ;  ] 
else  { 

for  (y-0;  y<**9;  y++)  {  if  (cen[0] [y]  !=  129)  {  for  (x-0;  x<»l;  x++) 


if  (x==0)  {  fputs  ("  Target  '',final_fl); 

fputc  (y+48,  final_fl)  ;fputs  {"  ==»  (",  final 
if  (cen [x] [y]  <  10) 

( 

fputc (cen [x] [y] +48,  final_fl) ; 

) 

if  (cenix][y]  >=10  &&  cen[x](y]  <  100) 

{ 

fputc(cen[x] [y] /10+48,  final_fl) ; 
fputc (cen(x) (yl%10+48,  final_fl) ; 

1 

if  (cen [x] [yj  >-100) 

{ 

fputc (cen [x] [y] /100+48, final_fl) ; 
fputc  (cen  [x]  [y]  /10%10+48,  final__fl) ; 
fputc ( (cen [x] [y] %100) +48, final_fl) ; 

} 


if  (x—O)  {  fputs  (", \t",  final_fl) ;  } 
if  (x==l)  {  fDUts(")\t::  ",final_fl);  ) 

}  if  (cen(2](y]  !=  1)  (  fputs ("UK", final_fl) ;  } 
fouts ("SuccessfulNn", finai_fl) ; 

ID 

fputc (' \n' , final_fl)  ; 


fl)  ; 
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save_process ( ) 

{ 

extern  char  f ilename [ 50} ; 

extern  int  sarr ( 128] [128 ) ; 

char  group [5],  name [54],  cmd[63]; 
FILE  *fp; 

rnt  x,y,z; 

strcpyiname,  filename); 
street (name,  SGPEXT) ; 


fp  =  fopen(name,  "w"); 

for  (x=0;  x<=127;  x++)  {  for  {y«0;  y<=l27;  y++) 

{ 

if  (sarr(x] [y]  <  10) 

{ 

fputsC  ",fp); 

fputc ( (sarr [x] [y]  +  48), fp); 

1 

if  (sarr(x](y]  >=  10  &&  sarr[xl[y]  <  100) 

{ 

for  (2»0;  2<=2;  2++)  {  fputc ('  ' , fp) ;  } 
fputc (( (sarr [x] [y]  /  10)  +  48), fp); 
fputc (( (sarr [ x] [y]  %  10)  -  48),fp); 

} 

if  (sarrfx] [y]  >=  100  s&  sarr[x)[y]  <  1000) 

( 

for  (z«=0;  z<=l;  z++)  {  fputc ('  ',fp);  } 
fputc (( (sarr [x] (y)  /  100)  +  48),fp); 
fputc ((( (sarr [x] [y]  %  100)  /  10)  +  48), fp); 
fputc (( (sarr (xl (y)  %  10)  +  48), fp); 

} 

if  (sarrlxj  [y]  >«  1000  &&  sarr[x] (y)  <  10000) 

{ 

fputc ('  ',fp); 

fputc (( (sarr [x] (y)  /  1000)  +  48), fp); 
fputc ({( (sarr (x) (y]  %  1000)  /  100)  +  48), fp); 
fputc ((( (sarr (xj [y]  %  100)  /  10)  +  48), fp); 
fputc (( (sarr [x] (y)  %  10)  +  48), fp); 

) 

if  (sarr[x] [y]  >-  10000  sarr[x] [y]  <100000) 

{ 

fputc (( (sarr [x] ly]  /  10000)  +  48), fp); 
fputc ((( (sarr (x) [y]  %  10000)  /  1000)  +  48), fp) 
fputc ((( (sarr (xj (yj  %  1000)  /  100)  +  48), fp); 
fputc ((( (sarr [xj [y]  %  100)  /  10)  +  48),fp); 
fputc ({ (sarr [x] [y]  %  10)  +  48), fp); 

) 

}  fputc  (' \ri' ,  fp) ;  } 
f close (fp) ; 

if  (compres  -=  1) 

{ 

str cpy ( cmd, COMPRESSCMD ) ; 
streat (cmd, name) ; 
system (cmd) ; 

strepy  (cmd,  CO[4PRESSCMD)  ; 
streat (cmd, filename) ; 
street (cmd, IMGEXT) ; 
system (cmd) ; 

\ 

t 

1 
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signai_process  ( ) 

extern  int  gaxnoff,  scenest,  thresh,  thresnv,  ciust; 

extern  int  trup,  trio,  ntar; 

extern  int  larr [128] [128] ,  sarr [128] [128] ; 

extern  float  gain,  offset,  icen [3] [10] , acen [3] [10] ; 

extern  float  kthree,  kfour; 

extern  char  filename ( 50 ] ; 

int  target [128] [128] ,  i,  n,  row,  col,  g,  h,  avel,  ivel,  j,  y,  x; 

int  a,  b,  c,  d,  e,  f; 

float  valux,  valuy,  valu; 

float  xca,  yea,  xsm,  ysm,  xv,  yv,  acm; 

float  rowmoa,  colmoa,  rowmom,  colmom,  rowtoa,  rowtot; 

float  total,  totala,  maxtwo,  yaim,  xaim; 

printf ("\nSignal  Processing  image  %s.\n\n",  filename); 
for {x*0;x<128;x++)  { 

for (y»0;y<l28;y++)  { 

sarr[x][y]  =  iarrix](y]; 

} 

1 


Gain  and  Offset  section.  ’Z 
ifigainoff  ==1)  | 

printf ("Running  SPPD  Gain  and  OffsetXn"); 
for (x»0;x<l28;x++)  { 

for (y-0;y<128;y++) 

sarr(xj(y]  =  (gain^sarr [x] [y] )  +  offset 

} 

) 

if(gainoff  —  0)  { 

/♦printf ("No  Gain  and  Offset  selected\n") ; */ 

) 

/*  Scene  stabilization  section.  */ 

if (scenest  =-  0)  { 

/*Drintf("No  Scene  Stabilization  selectedXn") ; */ 

) 


/  * 


/♦ 


Threshold  Section.  */ 


if (thresh  =«  1)  [ 

printf  ("Threshold  =•  %d\n",threshv); 
for (x=0;x<128;x++)  { 

for (y«0;y<128;y++)  ( 

if (sarr [x] [y]  <  threshv) 
sarr [x] [y]  -  0; 


) 


) 


} 

if  (thresh  »»  0)  [ 

/♦printf ("No  threshold  selectedXn") ; ♦/ 

} 

Clustering  section  */ 

if  (ciust  ••••  i)  { 
ntar  -  0; 

for (x-0;x<128;x++)  { 
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for(y=0;y<128;y*+)  { 

if  (sarr  (x]  (yj  >0) 

if (near  =»  0)  { 

target (xjfyj  =  i; 
near  =  i; 

} 

else  if (target (x] {y-l]  >  O)  { 

^  target{xHy]  =  target  [x]  [y-l  ]  ; 

else  if  (target [x-l] [y-l]  >  Q)  f 
target [x)[y)  =  target [x-i] [y-l j 

else  if (target{x-l] [yj  >  0)  { 
j  target (x](y]  =  target [x-l] [yj ; 

else  if (target [x-l] [y+ij  >  o)  { 
j  target(x][yj  =  target [x-l] [y+l] 

else  [ 

ntar  *  ntar  +  1; 
target [xj [yj  =  ntar; 


^  print f(»igumber  of  Targets:  %ci\n”,  ntar) 

if  (dust  —  0)  ( 

/*printf ("No  clustering  selected\n") ; */ 


Centroid  Area.  Figures  Area  and  Intensity  */ 

if (ntar  >  10) ntar  =  10; 

n  »  0; 
j  =  0; 

for  (i«»l;i<»ntar;i++)  { 

rowmoa  -  C.O; 
colmoa  =  0.0; 
rovfmom  «  0.0; 
colmom  =  0.0; 
total  *  0.0; 
totala  -  0.0; 

3  -  0; 

for (row-0 ;row<128;row++)  { 
rowtoa  »  0.0; 
rowtot  «  0.0; 

for (col-0;col<128;col+*)  ( 

if ((target (row J [col] )  «  i)  ; 
j+*l; 

colmom  =  oolmom+(sarr (rowj [col] * 
rowtot  -  rowtot  +  sarr (row) [col] ; 
colmoa  -  colmoa  +  (1.0*(col-.5)  i  • 
rowtoa  »  rowtoa  +1.0; 

} 

total  -  total  +  rowtot; 
rowmom  -  rowmom  +  (rowtot* (row  -  5) ) • 
totala  -  totala  +  rowtoa;  ' 

rowmoa  -  rowmoa  +  (rowtoa* (row-. 5)); 
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if(j  >  20)  : 

n+=l; 

”  rowmom/tocai; 

aSu  r-l  “ 

acen  0  “  rowmoa/totala; 

acen(0)(n-i]  »  colmoa/totala,- 

printf("\nTARSET  :ld\n",  n)  • 

prantf (-Intensity  Centroid  =  %f  ,  .cenrnjf  -- 

.t.n.f(  Area  Cenrroid  =  if  ,  %f\n",aceniO]{n-i- 

,  Pfio^CPlxels  in  target  -  j); 

printf  (*'\n%c{  tarQ6t^<?i  'lae-r^  « 

ntar=n;  ^  20  pixels .  \n\n",  (ntar-n) )  ; 


Track  Area 
if (trackvc 


1)  { 

for (i=0;i<ntar;i++)  ( 

avel  =  sort  ((  (acen (OH i]-oac6n; Ai  f;  •  i  »  i 

MOVED  .  ‘“=* 

-^((avel  <-  trup)&i(avel  >«  . 

acen(2J  (i]  -  i;  ■ 

printf( -TARGET  :  %d\n",iH)- 
j  printfC  Track:  Successful. \n"); 


) * (acen [0} (ij -c 


acen(2] [i]  -  O; 

printf  ("TARGET  :  %d\n"H+l)  • 

printfC— .  Track:  Failed. \n"); 


if (trackvc 


i=0;i<ntar;i++)  { 

print f  ( "PIXELs''m0VED ^  %d\i !  Ji  n  ^  ^  ^ ^ °  ^  ^  ^ ^ 

printf  ("TARGET  ;  %d\n"  ’>1). 

^  printf (  ~  Track  :  Successful. \n")  ; 

else  { 

icen(2] (i)  «  O; 

printf ("TARGET  :  %d\n".i+l). 

printf {"  Track:  Failed. \n"); 


Aimpoint -offset  */ 

ifCaimpt  -*  l)  { 

for(n-0/n<ntar;n++)  ( 

if  ((acenpj  (nj— i)  i }  (icen{2J  (nj— i)  i  / 

for(i-0;i<i28;i+-*-)  { 

for{j-0; j<l28;3++)  ( 

if  (sarrji]  ( j]>nsaxtwo)  { 

maxtwo  «  sarr(i3(j3; 
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y 


) 


} 


if (sarrii] [ j]>0)  { 
a  =  a  +  h; 

b  =  b  +  1 ; 

c  =  c  +  g; 

d  -  d  +  h*h; 

e  =  e  +  g*g; 

f  =  f  +  9*h; 

} 

} 


} 

xca  »  a/b; 
yea  =  c/b; 
xjm  =  d/b; 
ysm  “  e/b; 

XV  -  xsm  -  xca*xca; 
yv  =  ysm  -  yca*yca; 
acm  “  f/b; 

if { ( (fabs (acen(0] [n] 


icen (0] (n] ) ) <= (kthree* 


xaim  =  acen [0] [n] ; 
yaim  =  acenll]  (n)  ,• 

) 

else  { 

xaxm  =  kfour* (icen(0} [n]  -  fabs(icen 
yaim  «  kfour* (icen [ 1) [n]  -  fabs(icen 

) 

printf ("TARGET  ;  %d\n",  n+1); 
print f ("Aimpoint  offset  ;\n"); 
printf  ("-—>%f  ,  %f\n",  xaim,  yaim)  ; 

) 

@Xs6  { 

printf ("TARGET  :  %d\n",  n+1); 

printf  ^'Warning: :  TraeJeing  FAILED .  \n")  ; 

printf (" — Necessitates  Offset  CANCEL. \n") ; 

} 


if(aimpt  —0)  { 

/*princf("No  Aimooint  Offset  selected. \n") ; */ 

) 

/*  Hardbody  Detection  Section  (EXP)  */ 

if{harddt  0)  ( 

/♦printf ("Hardbody  detect  currently  inactive. \n") ; */ 

} 
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swap_centroids ( ) 

extern  float  icen(3][10], 
acen(3] [10] , 

int  X,  y; 


oicen [3] [10] 
oacen{3] [10] 


for  (x»0;  x<»2;  x++)  {  for  (y-O;  y<=9;  y++) 


)  } 


oicen [x] [y] 
oacen (x] (yj 


icen (x] [y] ; 
acen  (x]  (y] 
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term_set ( ) 


extern  int  display; 


printf  ("\n\nMISP  %s\n'*, 
printf ( "Developed  by  DH 
run_simulatiQn() ; 


VERSION) ; 

&  TU  (3AI)\n") 


2CM0 


tnresh_img() 


extern 

int 

for  (x= 


-•'i-  -arr  ;:28]  [128] ,  laarr  [  128 ]  [  128) ; 

^ '  y ' 

0;  x<=127;  {  for  (y=0;  y<«127;-  y++) 

idarr[x][y]  =  ,(iarr (;•:)  [y]  <=  128)  ?  rarr{:<jiy]  ;  128 
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sarril28j  :i2S],  saar::il28]  [123] 


cnresh_proc ( j 


extern  in: 
inn  X, 


for  (x-O;  x<-127,:  x++)  {  for  (y=0,:  y<=127;  y+- 
sdarrixj[yj  =  (sarr[x][y]  <=  : 


;  f 


) 

28)  ?  sarr[ 
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static  viewir.cf) 

char  nyte; 

extern  cnar  filesgp[50) ,  fiiesppciSO]' 
FILE  *fp; 

int  count,  cx,  cy,  suffix,  m; 

extern  int  iarr  [128'Hi28],  idarr  i  128  ■  ( 128]  ; 

char  suf[3]; 


! 


while ;  suf  (0  ]  !=  'A'  s&  suf{0]  !=  'B'  5S  suf[C]'  !=  'C') 

1 

printf ("\nEnter  type  of  image : Nn") ; 
printf("\tA)  Initial  SPPD.Xn"); 
printf ("\tB)  Signal  Processed  SPPD.Xn"); 

Drintf("\tC)  Automatic  selection . \n" ) ; 
printf  (’'\nVIFW>")  ; 
gets (suf) ; 

} 

suffix  =  suf(0]  -  64; 

print: ("image ;  ") ; 

gets :filesppa) ; 

if  (ii'lesppdfO]  ==  ' \0' )  : 

fprintf (stderr ,  "ERROR:  no  filename  typea.\n"); 
exit (0) ; 

} 

strcpy (filesgp, filesppd) ; 
strcat (filesppd,  IMGEXT) ; 
strcat (filesgp,  SGPEXT) ; 

for  {m»>0;  m<*l;  m++) 

( 

if  (suffix  1  1  I  (suffix  ==•  3  &&  m»«0)) 

{ 

fp  =  fopen (filespnd,  "r") ; 

} 

if  (suffix  ==  2  I  I  (suffix  ==  3  &&  m=“i>) 

{ 

fp  =  fopen( filesgp,  "r"); 

i 

if  (fp  !=  NULL) 

for  (cx»0,:  cx<=127;  cx++)  {  for  (cy=0;  cy<»127/  cy++) 

{ 

iarr [cx] (cy)  =  0; 

for  (count=0;  count<»4;  count**)  f 
byte  =  fgetc(fp); 
if  (byte>«48  &&  byte<=57)  { 

iarr(cx](cy]  =  iarr[cx](cy]  *  10  + 
byte  -  48; 

} 

) 

}} 

fclose(fp) ; 

printf  ("Scaling  intensity  array  for  display  .  .  "); 
for  (cy«0;  cy<“127;  cy++)  {  for  (cx«0;  cx<«127;  cx++) 

idarr [cx] [cy]  «  {iarr{cx] [cy]  <-  128) ?iarr [cx] [cy] : 128; 

)} 

dispimg (suffix,  m) ; 

if  (suffix  —  1  I  I  suffix  —  2)  {  m  •«  2;  } 

}} 


f 
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iarr [128]  [128],  idarr[128] [128] ; 
filename [50] ; 


catic 


aispimg(suffi;<,m) 
int  suffix,  m; 


extern  int 
extern  char 


register  Pixwin  *pw; 
register  rnt  i,j,x,y; 
u_char  red (128), 

blue[l28] , 
green [ 128  j ; 


if (suffix=“l) pw 
if (suffix=»2)pw 
if(suffix==3  && 
if(suffix==3  && 


=■  canvas jpxxwin  (canvas)  ; 

=  canvas_pixwin (sigwin) ; 
m==0)pw  =  canvas_pixwin (canvas) ; 
m==l)pw  »  canvas_pixwin (sigwin); 


j  =  0; 

for  (i=>0;i<128;  i++)  { 

j  +»  2; 
if ( j=-256) 
j  =  255; 

blueji]  =  green  [ij  =  reafi]  =  j;. 


pw_setcmsname (pw,  "HSAP"); 

pw_writebac)«ground(pw,  1, 1,384, 384, NULL)  ; 

for  (x-l;x<384;x-x+3)  { 

for (y-i;y<384;y=y+3)  [ 

if ( (idarr (x/3] [y/3)==l) )  { 

pwjput(pw,  x+l,y+l,l); 

) 

if ( (idarr (x/3) [y/3]>“2)  && (idarr (x/3] [y/3]<=6) ) 

pw_put(pw,  X,  y,  1); 

pw_put(pw,  x+l,y,l); 

pw_put(pw,  x+l,y+l,l);, 

pw_put (pw,x,y+l, 1) ; 

pw_put (pw,x+2,y, 1) ; 

pw_put (pw,x+2,y+2, 1) ; 

pw_put (pw,x,y+2, 1) ; 

} 

if ( (idarr(x/3] {y/3]>-7) )  { 

pwjput(pw,  X,  y,  1); 
pw_put(pw,  x+l,y,l); 
pw_put(pw,  x+l,y+l,l); 
pw__put{pw,x,y+l,l); 
pw_put(pw,x+2,y,l); 
pw_put ( pw, x+2 , y+1 , 1 ) ; 
pw_put {pw,x+2,y+2,l) ; 
pw_put(pw,x+l,y+2,l) ; 
pw_put{pw,x,y+2,l); 

} 

} 

} 

graph_cent  ( ) ; 
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2ero_cent  ( ) 

extern  float  icen(3][10], 
acen[3] (10] ; 

int  X,  y; 

for  (x=0;  x<=2;  x++)  {  for  (y^O;-  v< 

{ 

icen(x] [y]  =  129; 
acen (x] [y]  =  129; 

}} 
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I .  Introduction . . . 


This  summer  was  a  time  I  will  not  forget.  I  learned  a  great  deal  about 
engineering  as  a  career  and  gained  many  valuable  experiences .  I  expected 
to  learn  this  summer,  but  I  did  not  expect  to  learn  so  much.  My  work  at 
the  aeroballistics  branch  was  highly  educational.  I  learned  not  only 
about  my  own  field  of  study,  aeroballistics,  but  also  about  other 
technical  fields,  and  engineering  in  general.  I  visited  other 
apprentices  from  other  branches  of  AFATL  to  learn  about  their  work  and 
see  the  different  areas  of  research.  I  have  always  been  fascinated  by 
the  science  of  flight  and  this  summer  was  my  first  opportunity  to  pursue 
it.  I  really  appreciated  the  opportunity  to  learn  hands-on  and  work  in  a 
real-world  environment . 
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III.  A  Description  of  My  Research... 


Aeroballistics  is  a  field  that  is  primarily  concerned  with  missiles, 
rockets,  bullets,  and  other  projectiles.  We  test  and  research  various 
projectile  designs,  usually  missile  configurations  or  improved  bullets, 
but  sometimes  even  subscale  aircaraft.  Our  projects  come  from  three 
sources:  outside  contractors,  other  DoD  organizations,  and  in-house 
research.  The  improved  bullets  are  usually  from  twenty  to  forty 
millimeters  in  diameter  and  are  designed  to  maintain  higher  speeds  for 
longer  distances.  The  bullets  we  test  may  someday  be  used  by  various 
aircraft  in  the  Air  Force  inventory.  The  missile  configurations  are 
usually  designed  around  a  unique  purpose.  For  example,  we  have  tested 
ground-to-ground  missiles  for  the  army,  anti-aircraft  missiles  for  the 
Air  Force,  and  even  some  in-house  missiles  with  special  fins  to  allow 
them  to  be  shot  from  a  cylindrical  launch  tube.  The  missile  that  I 
worked  on  involved  just  such  a  special  fin  design.  (Fig.l) 

Our  building,  415,  is  rather  small;  we  only  have  eight  engineers  in 
our  section.  Three  are  Air  Force  active  duty,  three  are  civil  service, 
and  two  are  exchange  engineers  from  Germany.  The  aeroballistics  section 
of  FXA  uses  two  ranges:  the  ARF,  Aeroballistics  Research  Facility,  and 
the  BEF,  Ballistics  Experimentation  Facility.  Most  of  our  detailed 
testing  and  research  takes  place  at  the  ARF.  The  ARF  is  a  building  207 
meters  long  with  a  cross-sectional  area  of  approximately  four  square 
meters  for  the  first  sixty-nine  meters  and  five  square  meters  for  the 
last  138.  131  camera  stations,  of  which  about  fifty-five  are  utilized  at 

the  present  time,  are  placed  at  intervals  along  the  range.  Each  station 
has  two  cameras,  two  reflective  screens,  two  spark  stations,  and  an 
infra-red  detector.  The  cameras  and  reflectors  are  placed  opposite  one 
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another.  The  projectile  is  shot  from  one  of  several  guns  at  the  end  of 
tne  range.  As  it  flies  down  range,  it  passes  in  front  of  a  camera 
station  and  is  detected  by  the  infra-red  detector.  This  in  turn  ignites 
the  .•sparks  which  expo-^e  the  film  in  the  cameras  as  the  missile  flies 
past.  The  cameras  do  not  actually  photograph  the  missile;  they 
photograph  the  missile's  shadow  on  the  reflective  screens. 

The  ARF  is  called  a  six  degree  of  freedom  ballistics  range  because, 
from  the  photograohs,  data  can  be  obtained  that  describes  the  missile's 
movement  on  the  three  axes  -  X,Y,Z.  X  is  the  axis  that  extends  from  one 
end  of  the  range  to  the  otbi,r.  Y  is  the  left-right  axis,  and  Z  is  the 
up-down  axis.  The  pictures  also  give  us  data  about  the  rotation  of  the 
projectile  about  the  X,Y,  and  Z  axes  -  roll,  pitch,  and  yaw  respectively,. 
These  types  of  movement  are  the  six  degrees  of  freedom.  Because  we  can 
obtain  data  about  all  six  degrees  of  freedom,  we  have  some  advantages 
over  traditional  windtunnel  testing  which  allows  only  limited  movement. 

The  ARF  is  only  the  first  step  in  the  interactive  uata  analysis  I 
completed  this  summer.  (Fig. 2)  The  majority  of  the  time  I  spent  working 
on  my  summer  project,  I  workvjd  with  the  ARFDAS,  Aeroballistics  Research 
Facility  Data  Analysis  System.  ARFDAS  is  actually  a  group  of  programs, 
of  which  I  worked  mostly  with  the  Linear  Theory.  The  objective  of  Linear 
Theory  is  to  provide  the  researchers  with  data  about  the  projectile's 
motion  whicn  might  be  helpful  in  designing  the  full-scale  model. 

Before  the  analysis  of  the  projectile  can  take  place,  the  computer 
must  know  some  of  the  physical  properties  of  the  missile  and  some  of  the 
air  properties.  The  list  of  physical  properties  includes  the  following: 
Diameter,  weight,  axial  inertia,  transverse  [Y]  inertia,  transverse  [Z] 
inertia,  length,  and  center  of  gravity  location.  The  diameter  is  used  to 
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calculate  several  aerodynamic  coefficients.  The  axial  inertia  is  the 
resistance  of  the  missile  to  rotation  around  its  axis.  The  transverse 

[Y]  inertia  is  the  resistance  of  the  missile  to  rotation  around  the  Y 
axis  -  pitch.  In  an  axisymmetric  missile,  the  value  for  the  transverse 

[Z]  inertia  equals  the  value  of  the  transverse  [Y]  inertia.  Length,  like 
diameter,  is  used  in  calculations  of  aerodynamic  coefficients.  The 
location  of  the  center  of  gravity  represents  a  key  determining  factor  in 
the  computer's  predictions  of  stability.  The  center  of  pressure  must  be 
behind  the  center  of  gravity  for  the  projectile  to  be  statically  stable 
(fig. 3),  but  the  computer  must  know  some  of  the  conditions  of  the  air  to 
more  accurately  predict  the  center  of  pressure. The  air  properties 
necessary  for  program  calculations  include  the  following:  density,  speed 
of  sound,  temperature,  pressure,  and  relative  humidity.  Once  the 
computer  has  all  the  input  it  needs,  the  analysis  can  begin. 

Linear  Theory  uses  equations  that  describe  the  path  of  an  object  trough 
a  fluid,  such  as  air,  to  calculate  a  theoretical  trajectory  for  the 
missile.  After  I  input  some  preliminary  values  for  coefficients  of  these 
equations  the  program  calculates  a  trajectory.  I  then  compare  the 
actual  data  to  the  theoretical  data  and  through  an  iterative  process, 
adjust  the  values  of  the  coefficients  of  the  equations  until  the 
program's  theoretical  trajectory  matches  the  actual  trajectory.  This 
process  is  called  'fitting'.  I  started  on  this  project  just  a  few  days 
after  arriving,  and  I  should  be  finished  by  the  end  of  this  week. 

When  the  analysis  is  run,  a  screen  is  displayed  on  the  tektronix 
4107  terminal  that  allows  you  to  adjust  some  of  the  vector  properties  of 
the  projectile's  flignt,  specifically  the  precession  and  nutation 
vectors.  By  adjusting  the  vectors,  the  coefficients  of  the  linear  theory 
equations  are  adjusted.  The  properties  include  the  vector's  frequency. 
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Fig.  3 


orientation,  amplitude,  damping,  frequency  change,  and  trim.  At  first, 
the  vector  properties  must  be  adjusted  manually,  but  once  the  theoretical 
equations  begin  to  resemble  the  actual  trajectory,  the  program  can  be  set 
free  to  fine  tune  the  coefficient  values.  Each  'shot'  (projectile)  is 
different,  and  it  ta)ces  a  )cnowledge  of  aerodynamics  and  practice  with  the 
linear  theory  program  to  correctly  reduce  a  'shot'. 

A  great  deal  of  knowledge  is  needed  to  actually  analyze  a  shot .  It 
has  taken  me  all  summer  to  be  able  to  interpret  even  part  of  the 
analysis.  Each  coefficient  reveals  a  certain  facet  of  that  missile's 
overall  aerodynamics,  but  the  coefficients,  when  used  in  combination, 
paint  a  complete  picture  of  its  overall  flight  characteristics.  To  be 
honest,  most  of  the  engineers  can't  remember  the  importance  of  every 
coefficient  every  day.  The  pages  of  attachment  one  are  typical  Linear 
Theory  output. 
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IV.  Conclusion . . 


Of  course,  the  goal  of  this  analysis  is  to  predict  the  aerodynamic 
properties  of  a  full-scale  model.  After  all,  who  wants  a  half-scale 
model?  For  my  summer  project,  I  analyzed  data  from  twenty-four  'shots' 
of  a  generic  high  length  to  diameter  ratio  missile  with  a  wrap-around 
fin  configuration.  Each  missile  was  shot  at  a  different  speed  from  our 
thirty  millimeter  two  stage  light -gas -gun .  Unfortunately,  the  research 
was  cancelled,  and  as  a  result,  it  will  probably  never  become  a  full- 
scale  model.  However,  some  conclusions  can  be  drawn  from  our 
experiments.  For  exaitple,  the  wrap-around  fins  cause  a  side-moment,  and 
we  are  able  to  determine  the  mach  at  which  the  missile  becomes  statically 
unstable.  Although  the  missile  is  not  likely  to  become  a  full-scale 
model,  the  data  we  obtained  can  be  built  upon  or  used  in  the  future. 
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V.  Experiences  Gained. . , 


Before  spending  money  to  build  a  model  and  more  money  to  test  it,  we 
try  to  predict  some  of  its  aerodynamic  properties.  I  worked  with  two 
preliminary  design  programs  this  year;  one  was  called  Prodas,  and  the 
other  was  called  Missile  Datcom.  In  Prodas,  the  user  inputs  the 
missile's  configuration  according  to  the  program's  format;  for  example, 
the  user  tells  the  program  how  long  the  centerbody  is,  describes  the  fin 
shape,  describes  the  nose  shape,  inputs  the  center  of  gravity  location, 
and  much  more.  Prodas  then  searches  its  extensive  library  for  another 
similar  missile,  and  from  that  missile's  aerodynamic  properties,  it  is 
possible  to  gain  an  insight  into  the  new  missile's  properties. 

Attachment  two  represents  some  typical  Prodas  output. 

Missile  Datcom  uses  similar  techniques  to  input  the  missile 
configuration  to  be  tested,  but  it  does  not  have  a  library  of  other 
previously  constructed  missiles  to  predict  the  properties  of  the  new 
design.  Instead,  it  uses  a  variety  of  mathematical  techniques  to 
calculate  the  properties  of  the  missile.  Both  Prodas  and  Missile  Datcom 
have  advantages,  but  I  prefer  Missile  Datcom  over  Prodas.  Its  input 
methods  are  easier  to  use;  however,  only  Prodas  allows  you  to  see  the 
geometry  of  the  missile  as  it  is  being  constructed.  Attachment  three  is 
typical  output  from  Missile  Datcom. 

Missile  Datcom  is  a  relatively  recent  addition  to  our  preliminary 
design  program  repertoire.  Capt.  Valentino  asked  me  to  learn  to  use  the 
program  and  handed  me  the  manual.  He  wanted  me  to  compare  output  from 
Missile  Datcom  to  Prodas  and  the  empirical  data  obtained  form  linear 
theory.  After  a  summer  of  manual  reading  and  testing,  my  knowledge  of 
the  program  is  still  incomplete,  but  1  know  more  about  modeling  missiles 
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on  Missile  Datcom  than  anyone  in  the  section. 

Captain  Valentino  also  wanted  to  be  able  to  use  the  plot  output  from 
Missile  Datcom  to  make  graphs  and  charts  on  Enable.  He  asked  me  to  work 
on  this  project.  Fortunately,  I  had  taught  myself,  with  a  little  help 
from  my  colleagues,  the  basics  of  Fortran  after  work  and  during  free 
time.  I  modified  the  original  plot  output  subroutine  of  Missile  Datcom 
so  that  it  contained  more  force  and  moment  coefficients  (aerodynamic 
data) .  I  also  wrote  another  program  to  organize  the  output  by  angle  of 
attack  and  convert  the  modified  plot  output  into  an  ASCII  file  which 
could  be  read  by  Enable.  (fig. 4)  Attachment  four  is  the  modified 
subroutine;  attachment  five  is  my  plot  conversion  program,  output.  I 
then  developed  a  methodology  for  transfering  the  files  from  the  VAX  to  a 
hard  disk  and  from  there  to  the  Enable  directory.  From  there,  the  data 
is  accessible  for  graphing  or  other  purposes.  Enable  is  only  one  of 
several  utility  programs  I  learned  to  use  this  summer.  I  also  learned  to 
use  Wordstar,  Gem,  and  Exact . 

As  I  said  earlier  in  this  paper,  I  learned  a  great  deal  this  summer, 
more  than  I  could  really  convey  in  this  report.  I  had  high  expectations 
for  this  program,  but  they  have  all  been  surpassed,  besides,  who  wouldn't 
want  to  play  with  missiles?  Anyway,  aeronautical  engineering  is  now  a 
career  in  which  I  am  interested.  I  realize  I  am  not  impartial,  but  I 
truly  believe  that  this  program  is  one  of  our  country' s  greatest 
investments  for  the  future.  I  hope  to  return  next  year  and  continue 
learning  and  contributing. 
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Fig. 4 
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IHTRODUCTZOH 


With  new  advancements  in  technology  come  problems  that  are 
difficult  to  solve.  These  problems  must  be  put  into  a  different 
format  that  is  simpler  to  work  with.  Fourier  analysis  is  an 
example  of  a  technique  to  simplify  these  problems,  and  the  heart 
of  Optical  Processing. 

Fourier  synthesis  techniques  can  be  said  to  have  begun  with 
the  first  intentional  manipulation  of  the  spectrum  of  an  image. 
The  experiments  done  by  Abbe,  in  1893,  and  Porter,  in  1906, 
demonstrate  the  basic  principles  of  Fourier  analysis,  shown  in 
Figure  1. 

An  object  of  fine  wire  mesh  was  illuminated  by  a  coherent 
light  source.  The  Fourier  spectrum  of  the  periodic  mesh  appears 
in  the  back  focal  plane  of  the  imaging  lens.  In  the  image  plane, 
the  various  Fourier  components  passed  by  the  lens  are  recombined 
to  form  a  replica  of  the  mesh.  When  various  obstructions  (such 
as  an  iris,  slit,  or  small  stop)  are  placed  in  the  focal  plane, 
it  becomes  possible  to  directly  SMipulate  the  spectrum  of  the 
image  in  a  variety  of  ways. 
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BACKGROUND 


The  chart  in  Figure  2  illustrates  the  different  projects  that 
I  am  involved  in.  Dr.  Dennis  Goldstein  is  the  head  of  the  team 
to  explore  and  use  Optical  Pattern  recognition.  A  contractor, 
the  University  of  North  Texas,  is  developing  aspect  invariant 
spatial  filters  to  be  used  in  these  experiments.  These  projects 
must  be  fed  by  two  other  system  projects.  Digital  Imagery 
Production  and  Image  Analysis,  which  were  the  projects  I  worked 
on.  The  Image  Analysis  work  also  feeds  the  Optical  Design 
project.  The  Optical  Design  and  the  Spatial  Filter  work  go  into 
creating  the  actual  hardware  for  Optical  Pattern  Recognition,  the 
Optical  Correlator. 

Optical  Processing  can  be  demonstrated  by  the  design  in 
Figure  3.  First,  a  laser  gives  a  coherent  light  source.  This 
light  is  sent  through  the  image  to  be  optically  processed.  As 
this  beam  passes  through  the  image,  the  image  is  read  onto  the 
beam  itself.  As  the  beam  passes  through  the  first  lens  a  Fourier 
transform  is  performed.  The  spatial  frequency  distribution  of 
the  image,  which  looks  merely  like  a  pattern  of  dots,  appears  at 
the  focal  plane  of  the  lens.  A  second  high  quality  lens  will 
reconstruct  the  image  so  that  the  resultant  image  is  shown  in  the 
second  focal  plane.  This  is  known  as  the  Four  F  Processor 
because  the  length  of  the  series  is  four  times  the  focal  length 
of  the  lens. 
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RGURE2 
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FIGURES 


Description  of  Research 


The  Digital  Imagery  work  was  all  computer  simulation  of 
actual  optical  occurrences.  Instead  of  a  live  image,  data  arrays 
are  used.  To  gather  the  necessary  data  arrays,  I  needed  to 
accumulate  different  target  images  onto  computer  files.  For 
these  images  I  used  the  following  models: 

Tanks :  Ml 

H48 

M60 

T-62 

M113  APC 

Airplanes:  F~19 

F-15 

F-14 

Herrier 

SDI  vehicles:  Post  Boost  Vehicle 

Bus 

Some  of  these  target  images  are  shown  in  Figures  4~10.  Figure  11 
shows  that  these  models  were  set  up  in  the  Optics  Laboratory  on  a 
stabilized  table  with  the  camera  at  a  twenty  degree  depression 
angle  to  simulate  a  normal  vector  for  a  air-to-ground  missile. 

The  control  box  for  the  camera  had  it's  horizontal  and 
vertical  syncs  directly  linked  to  the  VMS  VAX  8650  system.  The 
video  hookup  was  between  the  camera  itself  and  the  VAX.  In  the 
Image  Processing  Laboratory,  I  captured  the  live  image  sent 
through  the  VAX  onto  one  of  the  DeAnza  monitors.  The  monitors 
were  controlled  through  the  input/ output  terminals,  the  VT  220  or 
the  VT  340.  The  set  up  is  shown  in  Figure  12. 

While  the  image  was  on  the  screen,  the  Cellular  Array 
Processing  System  (CAPS)  was  used  to  save  and  manipulate  the 
image.  CAPS  is  a  high-level,  image  language  which  is  enables  the 
observer  to  view  the  imagery  on  the  monitor  as  a  user's  algorithm 
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FIGURE  6 


figures 
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CAMERA 


FIGURE  11 


is  executed.  This  feature  cones  in  useful  when  there  is  linited 
storage  space  because  the  original  inage  can  be  kept  and 
resultant  images  .^e  made  from  it. 

The  models  are  rotated  and  digitized  through  different  sets 
of  aspect  angles.  The  tanks  are  rotated  a  total  of  two  hundred 
twenty~five  degrees,  the  planes  are  rotated  a  total  of  one 
hundred  eighty,  and  the  SOI  vehicles  are  rotated  a  total  of 
ninety  degrees.  After  the  model  is  rotated  throughout  all  of  its 
angles,  the  image  files  are  transferred  to  a  nine-track  magnetic 
tape. 

Many  things,  such  as  the  c2Uiera  arremgement,  stability 
effects,  and  lighting  conditions,  made  beginning  digital  imagery 
difficult.  Because  of  the  trial  and  error,  I  wrote  a  manual  that 
outlines  various  techniques  to  make  digital  imagery  more 
efficient  for  someone  continuing  this  research.  The  CAPS  portion 
of  this  manual  is  shown  on  the  following  page. 
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How  to  use  CAPS  in  the  I PL. 


1 .  Log  in 

2.  Assign  the  monitor  to  use 

A.  To  see  which  monitors  are  open  type  SHOW  DEV  EPA 

1.  If  it  is  on-line,  then  it  can  be  used. 

2.  If  it  is  allocated,  then  another  user  already  has 

it. 

B.  After  you  know  which  monitor  to  use,  i.e.  EPAl  then  type 

1.  ASSIGN  SPAl  IPO 

2.  If  you  do  not  want  anyone  interfering,  allocate  the 

monitor  by:  ALLOCATE  EPAl 

3.  To  make  certain  that  the  monitor  is  assigned: 

A.  SYSINT  which  initilizes  the  screen  with 

cursors . 

B.  CUROFF  which  clears  the  screen. 

3.  Get  into  CAPS  by  typing  CAPS 

A.  To  digitize  an  image,  type: 

1.  INIT  which  initilizes  the  screen  in  CAPS 

2.  A/D  which  takes  the  picture 

4.  To  save  in  CAPS 

A.  To  only  save  an  object  in  the  middle  of  the  screen,  the 

command  would  be:  PICK  01  128  128  256  256 

1.  TEMPO l.TMP  would  be  the  name  of  the  object.  It  only 

allows  for  two  decimal  place  holders;  from  00  to  99. 

2.  The  first  128  is  where  the  x(row)  coordinate  would 

begin  to  save.  The  second  128  is  where  the 
y (column)  coordinate  would  begin  to  save. 

3.  The  256  256  is  the  dimension  of  the  box  to  be  saved. 

B.  To  save  the  entire  picture,  the  command  would  be: 

PICK  02  0  0  5ir.  512 

1.  The  name  chosen  for  this  example  was  TEMP02.TMP. 

2.  The  0  0  would  be  the  upper  left  corner  and  the  512 

512  would  be  the  lower  right  corner. 

5.  To  unsave  a  picture  on  the  monitor 

A.  To  reproduce  a  picture  described  in  4A,  the  command  would 

be:  UNSAVE  -1  1  256  256  TEMPOl.TMP 

B.  To  reproduce  a  picture  described  in  4B,  the  command  would 

be:  UNSAVE  -1  1  512  512  TEMPC2.TMP 

6.  Frequently  used  features 

A.  CLR  clears  the  sc  en  on  the  monitor. 

B.  COVER  changes  the  colors  of  the  background  to  the  object 

and  vice-versa;  i.e.  COVER  255  0 

C.  COLOR  1  is  the  red  image  that  is  digitized 

COLOR  2  is  the  image  transposed  into  black  and  white 
COLOR  2  1  shows  a  color  bar  at  the  bottom  of  the  black 
and  white  picture. 

D.  ZOOM  is  the  size  of  the  image 

ZOOM  2  is  the  image  enlarged  by  half 

ZOOM  4  is  the  image  enlarged  by  a  quarter 

ZOOM  8  is  the  image  enlarged  by  an  eighth 

E.  Instead  of  typing  in  EXIT  to  exit  CAPS,  just  press 

Control  Y . 
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Most  of  the  image  manipulation  vns  done  in  CAPS.  The  first 
change  was  to  switch  the  color  scheme  to  black  and  white  from  the 
red  to  green  hues,  shown  in  Figure  13,  found  in  the  main  CAPS 
coloring  process. 

The  maximum  image  size  is  512  x  512  pixels.  Instead  of 
saving  the  whole  screen,  a  rectangular  subset  of  the  screen  which 
contained  the  model  was  selected.  This  saved  memory  by  giving 
the  file  a  smaller  image  to  hold  while  the  whole  model  was  in  the 
center  rectangle  the  excess  noise  was  cut  out. 

After  all  of  the  image  manipulation  is  done,  the  model  is 
rotated  one  degree. 

My  image  analysis  work  was  mostly  through  the  computer  to 
simulate  optimum  conditions.  This  can  be  more  difficult  that  the 
real  optics  work,  but  it  is  more  reliable  and  efficient.  In  real 
optics  work,  the  only  time  an  image  can  manipulated  is  in  the 
focal  plane.  Certain  amplitudes  and  frequencies  represented  by 
dots  can  be  filtered  out  to  make  the  picture  clearer  or  merely  to 
single  out  part  of  the  resident  image.  This  is  done  by  a  spatial 
light  modulator  or  a  filter. 

The  three  major  ways  to  make  filters  are  with  photographic 
film,  electron  beam  etcher  on  chrome  coated  glass,  or  a 
modulator.  A  modulator  is  a  three  dimensional,  programmable  mask 
which  can  be  changed  to  fit  each  image.  These  are  expensive 
though  and  are  only  efficient  if  used  long  term  or  if  they  are 
used  to  hold  a  library  of  images. 

To  generate  a  filter  the  computer  needs  the  digital  imagery 
in  an  array  form.  The  imagery  coming  from  the  camera  was  in  an 
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image  array  form.  So  I  wrote  a  program  that  converts  the  image 
array  into  a  data  array.  I  wrote  this  program  in  Fortran,  which 
is  shown  in  Appendix  1.  This  program  is  combined  with  another, 
already-developed  program  which  takes  the  two-dimensional  Fourier 
transform  on  the  supplied  data  array.  This,  in  turn,  gives  a 
complex  number  represented  by  sixteen  bits  which  represents  the 
Fourier  Spectrum. 

I  tested  my  program  with  the  image  of  a  simple  black  square 
because  the  Fourier  transform  of  a  black  square  is  known  and 
easily  recognizable.  I  then  proved  that  my  program  was  eff '  ”2. 
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Conclusions 


The  two  projects,  Digital  Imagery  Production  and  Image 

Analysis,  support  and  contribute  to  Optical  Pattern  Recognition 

research  and  development.  The  prime  setup  for  the  Optical 

Pattern  Recognition  configuration  is  shown  in  Figure  14 .  The 

incoherent  light  of  a  scene  is  brought  through  a  seeker  dome,  in 

this  case  transparent.  The  output  light  is  changed  to  coherent 

light  by  a  single  converter,  which  takes  the  place  of  two 

separate  converters  used  in  the  past.  This  was  developed  by  Otto 

Martinez,  at  AFATL.  With  the  aid  of  a  laser,  the  image  is  read 

to  the  beam  which  passes  through  a  lens.  This  lens  takes  the 

Fourier  transform  of  the  image.  The  Fourier  transform,  which  is 

a  representation  of  spatial  frequency  distribution  and  amplitude, 

is  compared  to  transforms  of  other  scenes  in  the  target  library 

in  the  programmable  filter.  Another  lens  transforms  the  image 

back  into  a  recognizable  image  pattern  and  is  shown  in  the 

detector  array. 

* 

The  prime  goal  of  this  research  is  a  guidance  system  to  be 
used  in  seekers.  Optical  Correlators  are  very  useful  in  seekers 
because  it  gives  the  missile,  information  on  target  location 
based  on  the  complete  spatial  target  signature. 

Some  developed  optical  correlators  have  already  been  tested. 
Self-contained  Optical  Correlators  have  a  laser  diode  and 
detector  kept  inside  a  glass  arrangement.  This  Optical 
Correlator  fits  inside  a  seeker  with  the  electrical  controls  and 
detector  systems.  Other  types  of  seekers  have  the  laser, 
detector,  filters,  and  lenses  separated  by  air  in  the  actual 
setup  of  the  seeker. 
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OPTICAL  PATTERN  RECOGNITION 
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Introduction 


Working  in  an  environment  such  as  the  Air  Force  Armament 
Laboratory  provides  a  learning  experience  without  equal.  The 
section  I  worked  under  this  summer,  Advanced  Guidance 
Instrumentation  /  Radar  and  Image  Simulation  Section  (AGI/RISS) , 
helped  enhance  many  of  my  abilities  and  gave  me  the  opportunity 
to  learn  many  new  skills.  This  summer  I  researched  the 
feasibility  of  using  synthetic  terrain  models  for  computer 
simulations  of  weapons  sensors/seekers. 
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My  mentor-,  Lee  Prestwood,  and  section  chief,  Mike  Wallace, 
were  invaluable  to  ray  research  this  summer.  Recognition  must 
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Background 

Realistic  landscapes  and  meaningful  background  scenery  for 
weapon  seeker  simulations  and  tests  on  computers  can  be  expensive 
and  slow  to  obtain.  This  summer  I  was  tasked  to  research  the 
feasibility  of  using  Iterative  Fractal  Algorithms  (IFA)  to 
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produce  synthetic  scenery  for  said  simulations.  This  research  , 

I 

started  with  a  review  of  a  few  sample  computer  programs  and 

search  of  pertinent  magazine  articles.  By  the  end  of  my  summer  _] 

session  I  had  successfully  modified  an  IFA  to  run  on  a  Z-248 

personal  computer  under  the  Turbo  C  language.  'j 

Research  i 

My  research  this  summer  started  with  the  basics  of  fractal 
geometry  concepts.  I  studied  first  the  work  of  B.  Mandelbrot's  j 

t 

fractal  geometry  and  his  Mandelbrot  Set  (Fig.l).  The  algorithms 

and  techniques  used  to  produce  these  scenes  are  extremely  slow,  ; 

but  incredibly  simple.  Plotting  the  Mandelbrot  Set  uses  a  basic 

formula,  Z  =  +  c,  where  Z  and  C  are  complex  numbers.  point 

is  run  through  this  equation  and  plotted  with  the  number  of 

iterations  it  takes  to  go  out  of  a  set  boundary  as  the  intensity 

value.  After  many  iterations,  unique  and  picturesque  patterns  J 

form.  Transforming  these  Mandelbrot  pictures  into  three  •. 

dimensional  figures  using  the  point's  intensity  as  its  elevation 

produces  a  fantasy  realm  of  peaks  and  plateaus  (Fig.2) . 

Unfortunately,  scenery  of  this  type  lack  realism.  A  more 
realistic  algorithm  deals  with  midpoints. 

The  midpoint  displacement  algorithm  generates  mountainous 
scenery  by  altering  the  elevation  of  certain  points  of  a  figure. 

We  start  with  a  figure  such  as  a  square  and  calculate  the 
midpoints  of  its  sides  and  the  location  of  its  center  (Fig. 3). 

The  value  of  these  points  are  then  modified  by  a  random  amount. 


The  Concept  of  Midpoint  Displacement 
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The  figuie  can  then  be  subdivided  into  smaller  divisions.  We 
continue  to  repeat  the  process  using  each  new  subdivisions  until 
the  scene  reaches  the  desired  resolution ^  This  algorithm  runs 
very  quickly  and  produces  more  realistic  results  than  using  the 
Mandelbrot  Set.  I  have  recently  read  about  algorithms  that 
produce  even  more  realit;‘'ic  results.  These  methods  allow  for 
erosion  and  river  patterns.  Due  to  time  constraints  I  could  not 
pursue  these  methods  any  further. 

The  first  computer  program  I  executed  dealing  with  fractal 
landscapes  I  had  found  in  a  magazine.  It  utilized  the  midpoint 
displacement  concept  that  I  explained  earlier.  Unfortunately, 
the  code  for  the  program  was  written  in  machine  language,  and  I 
could  not  decipher  it. 

I  then  turned  to  another  program  written  in  Amiga  basic.  I 
used  the  code  structure  of  this  program  to  create  my  own  program 
in  C.  This  program  worked  remarkably  well  and  became  the  fruit 
of  my  efforts.  The  source  code  for  this  program  is  included  at 
the  end  of  this  paper. 


Discussion 

The  use  of  synthetic  terrain  for  resting  simulations  holds 
many  significant  advantages  over  conventional  methods  of  target 
background  and  imagery  acquisition.  Methods  used  most  often 
include  photographing  actual  terrain  through  radar  or  actual 
pictures,  and  building  scale  models  of  the  needed  scenery.  This 
can  be  slow  and  expensive. 
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Generating  landscapes  synthetically  helps  eliminate  these 
problems.  IFA  programs,  like  the  one  I  wrote,  run  very 
efficiently  taking  only  seconds  to  generate  new  terrain.  The 
expense  related  to  generation  of  this  type  remains  minimal,  as 
well. 

In  the  future,  I  hope  to  vary  the  program's  data  format  for 
the  scenery.  Formats  such  as  infra-red,  radar,  and  electro- 
optical  are  options  that  could  be  implemented  at  a  later  date.  I 
also  hope  to  experiment  with  new  algorithms  and  techniques  that 
create  more  realistic  results. 


Experience  Gained 


Working  under  this  program  has  given  me  experience  unique  to 
AFATL.  In  order  to  complete  my  research  I  had  to  learn  the 
various  operating  systems  and  programming  languages  available  on 
the  computers.  The  RISS  hosts  two  labs  that  house  unique  video 
equipment  and  powerful  mainframe  computers.  I  first  had  to  learn 
VAX/VMS  to  operate  the  VAX  mainframes  in  the  labs.  I  then  began 
learning  the  languages  C  and  Fortran.  In  addition  to  my  project, 
I  did  some  independent  research  which  included  learning  the  UNIX 
operating  system  and  various  utilities  in  VMS. 


/***  Fractal  landscapes  generator  ***/ 
/*  */ 
/*  Adapted  from  an  algorithm  originally  */ 
/*  written  in  Amiga  Basic.  */ 
/*  */ 
/*  Modified  by  Eric  P.  White,  HSAP  1990  */ 
/*  Mentor:  Lee  Prestwood  AFATL/AGI  */ 


//include  <stdlib.h> 

//include  <stdio.h> 

//include  <mach.h> 

//include  <graphics.h> 

double  elevation(65] [65] ,  max_elevation  -  1,  min_elevaCion  -  1; 

int  scale  (double) ; 

void  make_isountain  (float); 

void  drawmountainO ; 

main  () 

( 

int  num-0 ,  num2-0 ; 
long  scaled_elevation; 
unsigned  seed; 
float  niaxvar-3; 
char  answer; 

/*  printf ("\nEnter  filename  to  output  data:  "); 
gets (filename) ;*/ 

while  ((maxvar  <  0) | | (maxvar  >  2)) 

( 

printf ("\nEnter  the  maximum  variation  for  the  elevation  (0-2)  ''); 
scarf ("Xf",  &maxvar) ; 

) 

printf ("XnEnter  a  random  seed  ('1'  for  default  starting  point)"); 
scanf("  Xu",  Aseed) ; 
srand(seed) ; 

for  (num  -  0;  num  <  64;  num-t-f) 
i 

for  (nuffl2  -  0;'  num2  <  64;  num2-H-) 

( 

elevaCion(num][num2]  -  0.0; 

) 

) 


raake_mountain  (maxvar) ; 
drawmountainO ; 


void  make_mountain  (float  max) 

/***  routine  to  load  randomized  values  into  an  array 
based  on  the  neighboring  values  ***/ 


{  int  iter,  side,  x,  y;  /*  declares  variables  for  iterations  and  */ 

/*  array  coordinates  */ 

double  old,  ran,  random_value ;  /*variables  for  the  random  generation*/ 
int  half_length;  /*variable  for  half  the  length  of  a  side  of  the  square*/ 
div_t  result; 

old  -  0;  iter-0;  side«0;  x-0;'  y-O; 

X  -  0; 

for  (iter  -  6;  iter  >  0;  iter--){  /**  main  loop  **/ 

side  -  pow(2,  iter);  /*  side  is  defined  as  2  to  Che  power  of  the 

current  iteration  */ 

result  -  div  (side,  2); 

half_length  -  result. quot; 

printf  ("\nDoing  iteration  Xd  \n'’,icer): 

/*  do  the  tops  and  bottoms  */ 

printf  ("Tops  &  Bottoms  \n"); 
x-O;  y-0; 

for  (y-0;  y  <  64;  y  +-  side) 

(  /*  loop  for  y  value  of  array  */ 

for  (x  -  half_length;  x  <  64;  x  +-  side) 

{  /*  loop  for  X  value  */ 

ran  -  (rand()/(32767.0) ) - . 5 ;  /**  calculates  the  */ 

random_value  -  ran  *  max  *  side;  /*  random  value  **/ 
old  -  (elevaclon[x-half_lengchl (yl )  + 

(elevation(x+half_length] (yj ) ; 

old  -  old/2:  /*  allows  new  value  to  be  proportional  to  old  */ 
elevaCion(x]  [y]  -  old  +  random_value ;  /*  sets  new  elevation  */ 

) 

) 

/*  do  the  sides  */ 

printf  ("Sides  \n"): 
x-0;  y-0;' 

for  (x-0;  X  <  64;  x  +-  side) 

{  /*  loop  for  y  value  of  array  */ 

for  (y  -  half_length:  y  <  64;  y  +-  side) 

{  /*  loop  for  x  value  */ 

ran  -  (rand()/32767.0)-.5;  /**  calculates  the  */ 

random_value  -  ran  *  max  *  side;  /*  random  value  **/ 
old  -  (elevacion(x) [y-half_length])  + 

(elev8tion(xi iy+half_length]) ; 

old  -  old/2:  /*  allows  new  value  to  be  proportional  to  old  */ 
elevacion(x)  (y]  -  old  +  random_value ;  /*  sets  new  elevation  */ 

) 

) 

/*  do  the  centers  of  the  squares  */ 
printf  ("Centers  \n"): 
x-O;  y-O; 

for  (x  -  half_length:  x  <  64;  x  +-  side) 

!  /*  loop  for  X  value  of  array  */ 

for  (y  -  half_length;  y  <  64;  y  +-  side) 
t  /*  loop  for  y  value  */ 

ran  -  (rand()/32767.0)-.5;  /**  calculates  the  */ 

random_value  -  ran  *  max  *  side;  /*  random  value  **/ 
old  -  (elevaCion(x-half_length]  (y+half_length) )  + 
(elevationix+half_lengthJ [y-half_lengthj )  + 
(elevationix+half_leagth j [y+half_length] )  + 
(elevacion(x-half_length j (y-half_lengthj ) ; 
old  -  old/4;  /*  averages  4  values  instead  of  2  */ 
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elevation{x)  (y)  -  old  +  randoin_value ;  /*  seCf.  new  elevation  */ 
if  (elevation(x] [yj  >  max_elevation) 

max_elevation  -  elevation(xl (y] ; 
if  (elevation[xl  (y]  <  min_elevation) 

min_eievation  -  elevation  (x][y]; 


) 

! 


) 


int  scale  (double  value) 

! 

double  new_elevation: 
value  -  (value)/  (fflax_elevation) 
new_elevation  -  value*255.0: 
return  (new_elevation) ; 


void  drawmountainO 

( 

float  xshift-1.5,  xin-7.0,  ym-1.5,  yp-100.0,  waterline-0.0,  snowline;, 
int  a,  b,  x,  y,  num,  num2: 

int  height,  rxl,  ryl,  rx2,  ry2,  rx3.  ry3,.  rx4,  ryA,  ry,  rx; 
int  graphdriver  —  DETECT,  graphmode,  nuapt  —  3, 
triangle ( 6 ] ,  erroreode ; 

/*  Detect  adapter  type  and  initialize  graphics  system  */ 

/*  if  (registerbgidriver(EGAVGA_driver)  <  0) 

( 

printf ("Driver  could  not  be  regiscered!\n") ; 
exit(O): 

)*/ 

initgraph(&graphdriver,  &graphniode,  "c:\\tc"): 
erroreode  -  graphresultO ; 
if  (.erroreode  !-  grOk)  ( 

printf ("Graphics  error:  Zs\n", 
grapherrormsg(errorcode)) ; 
exit(l) ; 

) 


snowline  -  max_elevation  •  ( niax_e leva t ion/4 ) ; 

for  (num  -  0;  num  <  64;  num++) 

( 

for  (num2  -  0;  num2  <  64;  num2++) 

( 

if  (elevationlniun]  [num2]  <  0.0)  elevation{num)  [num2)  -  0.0; 

) 

): 

for  (x  -  63;  x  >-  0;  x*-) 

{ 

for  (y  -  63;  y  >-  0;  y--) 

{ 

height  -  (elevation(x] [y] )+ 

(elevation{x+i] [y] )+ 

(elevationix) [y+1] )+ 

(elevation(x+i] [y+l)) ; 
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height  -  heighc/4;  - 
a  -  x;  b  -  y; 

rxl  -  (xm  *  a)  +  (xshift  *  b) ; 
ryl  -  (ym  *  b)  +  yp  -  elevation(a] [b] ; 
/*  get  a  shade  later*/ 
a  -  (x  +  1) ; 

rx2  -  (xm  *  a)  +  (xshift  *  b); 

ry2  -  (ym  *  b)  +  yp  -  elevationfa] [b] ; 

/*  get  a  shade  later*/ 

a  -  x;  b  -  (y  +  1); 

rx3  -  (xm  *  a)  +  (xshift  *  b); 

ry3  -  (ym  *  b)  +  yp  -  elevationfa] {bj ; 

/*  get  a  shade  later*/ 

a  -  (X  +  1); 

rx4  -  (xm  *  a)  +  (xshift  *  b) ; 
ry4  -  (ym  *  b)  +  yp  -  elevationfa] [b] ; 
/*get  shade  later*/ 
a  -  (x  +  .5);  b  -  (y  +  .5): 
rx  -  (xm  *  a)  +  (xshift  *  b) ; 
ry  -  (ym  *  b)  +  yp; 
a  -  x;  b  -  y; 
ry  -  ry  -  height; 
triangle [0]  -  rx; 
triangle [Ij  -  ry;' 
triangle [2]  -  rxl; 
triangle! 3]  -  ryl; 
triangle [4]  -  rx2; 
triangle [5]  -  ry2; 
if  (elevation(a](b]  <-  waterline) 

( 

setfillstyle  (SOLID  FILL,  LIGHTBLUE) ; 
setcolor  (LIGHTBLUE); 

I 

else 

( 

setfillstyle  (SOLID  FILL,  GREEN) ; 
setcolor  (LIGHTGREEN) ; 

) 

if  (elevationfalfb)  >  snowline) 
t 

setfillstyle  (SOLID_FILL,  LIGHTGRAY) ; 
setcolor  (WHITE) ; 

) 

fillpoly(numpt,  triangle); 
triangle [0]  -  rx; 
triangle! 1]  -  ry; 
triangle! 2]  -  rx2; 
triangle!!]  -  ry2: 
triangle !4]  -  rx4; 
triangle! 5]  -  ry4; 
if  (elevationfa] !b]  <-  waterline) 

{ 

setfillstyle  (SOLID  FILL,  LIGHTBLUE); 
setcolor  (LIGHTBLUE); 

1 

else 

( 

setfillstyle  (SOLID  FILL,  GREEN); 
setcolor  (LIGHTGREEN); 

) 
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if  (elevacion[a] [b]  >  snowline) 

{ 

setfilistyle  (SOLID_FILL,  LIGHTGRAY) ; 
setcolor  (WHITE) ; 

) 

fillpolyCnumpt,  triangle); 
triangle (0)  -  rx;' 
triangieilj  -  ry; 
triangle (2)  -  rxl; 
triangle (3)  -  ryl; 
triangle (4]  -  rx3; 
criangleis]  -  ry3: 
if  (elevation(a]  {b]  <-  waterline) 

( 

setfilistyle  (SOLID  FILL.  LIGHTBLUE) ; 
setcolor  (LIGHTBLUE); 

) 

else 

( 

setfilistyle  (SOLID_FILL.  GREEN); 
setcolor  (LIGHTGREEN) ; 

) 

if  (elevationfa] [b]  >  snowline) 

{ 

setfilistyle  (S0L1D_FILL.  LIGHTGRAY); 
setcolor  (WHITE) ; 

) 

fillpoly(nunipt,  triangle); 
triangle (0]  -  rx; 
triangle(l]  -  ry; 
triangle! 2]  -  rx3; 
triangle (3)  -  ry3; 
triangle [4]  -  rx4; 
triangle (5]  -  ry4; 
if  (elevacion(a)  (b]  <-  waterline) 

( 

setfilistyle  (SOLID  FILL.  LIGHTBLUE): 
setcolor  (LIGHTBLUEJ; 

) 

else 

( 

setfilistyle  (SOLID  FILL,  GREEN); 
setcolor  (LIGHTGREEN): 

) 

if  (elevation! a] [b]  >  snowline) 

{ 

setfilistyle  (SOLID_FILL,  LIGHTGRAY): 
setcolor  (WHITE) ; 

) 

flllpoly(nuiBpt,  triangle); 

) 

) 

/*  outtextxy(10,  getmaxy()-30, "  Press  any  key");*/ 
getchO; 
closegraphO ; 
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